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ABSTRACT: 
This module implements that NSP er of NETDRIVER. NSP 
is the protocol spoken over logical-links. The NSP Layer 
is sandwiched between the Session and Routi ng layers; each 
of which is implemented in a separate NETDRIVER module. 
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~SBTTL MODIFICATION HISTORY 


Alan D. Eldridge, CREATION DATE: 11-Mar-1982 


V03-033 ADE0043 
Don't update remote node address in XWB since that address is 
used as part of the NETACP hashing to locate the node counter 


E . Eldridge 
Fix race condition in receiver which was 


causing segments to 
be copied out of order. 


Move window and buffer control parameters to storage area so 
that they can be more easily played with via PATCH for 
experimentation. 


Don't allow ACK delay on data message exactly halfway into 
the pipeline. This allows overlap of the data and returning 
ACK message streams. 

Change max pipeline window to 40 (was 7). Modify window 
adjustment algorithms. 


t message FDT routine thst called 


CHK_INT_AVL with the wrong LSB pointer in R2. 


El 
Major rewrite to build data segments as needed (rather than 
just at FDOT time) by using kernel mode AST’s to nibble away at 
the user buffer. 
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$L_SES_BUF 
$B" CXBCNT 
ndf,IRP$Q_S 


{ TA 
f ndf,10$V_AULT 
f ndf,1O0$M=MULT 
$ 
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ADJ_XPW 
=MAX_XPW 
“MAX” RBF 
NSPSC_R_CRBTHR 
NSP$V_ACK_XCH 
NSP$V_SEQ_NAR 
NSP$M_SEQ-NAR 
NSP$V_DATA_NAR 
NSPS$M_DATA_NAR 


NSPSC_INF_V40 
NSPSC"MSG~CR 
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Bit definition macro 


"BLK'SM~'SYM' 
.ENDM 
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; Q10 Pl parameter offset from AP 
; Q10 P2 parameter offset from AP 


3; Shortened symbol name for counter offset 


IRP$L_SEGVBN 


IRP$Q_STATION = 8+IRPSL_IOST1 
IO$V_MULTIPLE = 1+10$V_INTERRUPT 
IOSM=MULTIPLE = 1@10$V=MULTIPLE 


1aNSP$V_SEQ_NAR 
NSP$V_DATA_EOM + 1 
NSPS$M_DATA_EOM * 2 


NSP$C 
*x<685 


INF _V33 , 
; Retransmitted Connect Initiate 
3; put in Library 


“MACRO BITDEF BLK,SYM,BITVAL 
"BLK'SV_'SYM' = BIT 


VAL 
1a@<BITVAL> 
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16 -SBTTL NSP MESSAGE FORMAT 
16 
198 p++ 
126 : <Oebd ><4b_LINK>{2b_ACK)< b.SEG><DATA> DATA msé 
1: < Oi >c4B=L IME>£2B-ACK}<ED-SEGD CUTE DATAD INT. MSG 
8 158 ; <0001 ><4b_LINK>{2b_ACK}<2b_SEG><2b_FLOW> L.S. MSG 
00 174; < 890 100><4b are b_ACK> DATA ACK 
00 175 ; <0001 0100><4b"LINK><2b_ACK> OTH. ACK 
00 176 ; <0010 0100><2b"DST> CA 
809 178 3; € ot 1 BOr< k 3 <3b- SRC><1b_SRV><1b = {NF O><eb. SEGSIZ><CTL> CI 
000 179 ; <0101 1000><2k"0>< istic’ SRV><1b_INFO><2b SEGSIZ><CTL> (CR 
000 180; < gi9 1000><4b"-LINK>21b_SRV>21 INE OS<2b _SEGSTZ><i16_DATA> cc 
000 181 ; <0011 1000><4b"LINK><2b “REA><HiB. DAT DI 
000.—1 ¢ ; «€ 198 1000><4b_LINK><2b-REA dC 
000 183; <0100 1 Oho <eb DST><2k_0><2k_1> cT 
44 184 ; <0100 1000><4b-LINK><2k_42> DT 
444 133 3 <0100 1000><4b"LINK><2k"41> NLT 
st is ; <0101 1000>------ START 
0000 189; <gb.LINK i= <2b DST><2b_sRC> Link address, not = 0 | 
0000 190; <2b_ACK ::= <1001><12 bit seg number> if NAK 
0000 191: <1000><13 bit seg number> if ACK | 
0000 136 3 . b_SEG> ::= <0000><12 bit sub number> | 
0000 193; <2b-FLOW> ::= <00000>< ont subchannel><2 bit mode><1 byte count> 
0000 194 ; Q => 00 => no change 
0000 195; 1 => + 01 => stop 
44 136 3 10 => start 
0000 198 ; <1b_SRV> = <00000001> if no flow control 
0000 199 ; <00000101> if segment flow control 
44 $o0 3 <00001001> if megee flow control 
000 501: <Ib_INFO> ::= <00000001> if N v1 
0000 8 3 <00000000> if NSP v3.2 
ae 
444 0S; <CTL> ::= <DNAME><SNAME><000000da><ACCOUNT><i116_DATA> 
00 38 s if a if d | 
0000 07 ; <DNAME> ::= <NAME> 
000 08 ; <SNAME> ::= <NAME> 
8 8 44 3 <NAME> ::= <1Tk_ S<1b_ bjtyp> objtyp not= 0 
0; <1k=1><1k_ ><itb de 
00 11; <1k>2><1k- 3<2b.5 ~ sS<2b _ucod><il2_desc> 
4 1g : <ACCT> = <i39_id><T739_psw><i59_act> 
0 13; 
00 14; | 
00 15 ;-- | 
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SEP=- 
-SBTTL FLOW CONTROL OVERVIEW 
The DATA subchannel transmitter is either message, segment, or null 
flowed controlled by the remote receiver. For details consult the 
NSP Functional Spec. Briefly, the rules are as follows: 
= Null Flow Control 


There is no flow control. Backpressure is the only way that the 
receiver can force the transmitter to stop transmitting. 


- Message Flow Control 
The receive increments the flow control variable once for each 
message which it may rece lye. It may never decrement it. This 
value must never exceed 127. 

- Segment Flow Control 
The adds the flow control value to the current flow control 
variable, this may increment it (not past 127) or decrement it (not 
below zero). 

Managing DATA Transmission Control Variables 

To control the xmitter, the is eg parameters are defined. Each 

° 


is a signed 12 bit number A gently an NSP message sequence number. 
Since NSP may not ‘‘pipeline’’ more than 2098 messages on any given 


subchannel, sequence number A is less than sequence number B if 
B-A < 2098 (mod 4096). 
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-SBTTL LSB State Variable Description 


HAR 


HXS 


LNX 


HAA 


LSB Rules 


LSB Transmitter segment number variables: 


Highest ACK Received. This value is increased upon receiving 
an ACK for a transmitted segment. It is never decreased. 


Highest Xmt-able Segment. This value represents the highest 
segment number which is both currently queued and allowed to 
be sent according to the remote receivers flow control credits, 
flow control type ig segment, none), and the transmit- 
packet window. It is independent of the current backpressure 
setting. It may be increased whenever: 


- a new message segment is Queved from by the session Layer. 
- positive flow control credits are received. 
= the transmit-packet-window is opened. 


It may be decreased whenever: 


= negative flow control credits are received. 

- the transmit-packet-window is opened. 

- the session layer does a $SCANCEL (not yet supported since 
this currently breaks the logical-Link). 


Last Number Xmt'd. This is the number of the last segment 
sent to the Routing layer for transmission. It is decreased 
whenever messages need to be retransmitted due to a timeout 
or a received - It is increased whenever a segment is 
sent to the Routing layer for transmission. 


Last Used Xmt-number. This is the number of the Last segment 
number assigned to a segment. On the DATA channel, segment 
numbers are assigned to the buffered data segements as they are 
built at FDT (or ALTSTART) time. On the LS/INTERRUPT channel 
they are assigned as a message is sent for the first time. 

The Latter technique could be used on the DATA channel as well, 
but it would make the calculation of HXS (and this happens 

very frequently) inefficient. 


Hence, this variable increases whenever a new segement number 
is assigned and never decreases. 


Highest ACK Acceptable. It is increased when a measone is 
cronsattteg and the new LNX is greater than the old HAA. It is 
decreased if the trasnmitter is ‘segment’ flow controlled and 
receives negative flow credits which caused the old HAA to be 
no longer flow controlled. 
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HXS 


LNX 


LUX 


LNX 


LUX 


LUX 


HAR 


HXS 


LNX 


LUX 


segment 


HNR 
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a. Increases but never decreases 
b. Increases and decreases 
¢. Increases and decreases 
d. Increases but never decreases 
e. Increases and decreases 


la. Never advance HAR beyond HXS 
1b. Never shrink HXS below HAR 


3 . Never advance HAR beyond LNX without advancing LNX 
b. Never shrink LNX below HAR 


@. Never advance HAR beyond LUX (done via la. + Sa.) 
b. Never shrink LUX below HAR (done via 0d.) 


4a. Never shrink HXS below LNX without shrinking LNX 
- Never advance LNX beyond HXS 


without advancing HXS 


- Never advance HXS beyond LUX 
- Never shrink LUX below HXS (done via 0d.) 


- Never advance LNX beyond LUX (done via 4b. + 5a.) 
6b. Never shrink LUX below LNX (done via 0d.) 


7a. Never advance HAR beyond HAA 
7b. Never shrink HAA below HAR (done via 1b.) 


8a. Can be less than, equal to, or greater than 

Ja. Never advance LNX beyond HAA without advancing HAA 

9b. Never shrink HAA below LNX without shrinking LNX 
(done via 4a.) 

10a. Never advance HAA beyond LUX (done via 6a. + 9a.) 

10b. Never shrink LUX below HAA (done via 0d.) 

number variables: 


lla. Never advance HAX beyond HNR 
(HAX never shinks) 
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v04-000 LSB State Variable Description a ae 4 83:35:64 NETACP. 


0000 -PSECT $$$115_DRIVER,LONG,EXE,RD,WRT 
i 9 SP$B_ADJ_XPW:: .BYTE NSPSC_ADJ_XPW 
g § 
4 
4 
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™ 


SP$B_MAX_XPW:: .BYTE | NSPSC_MAX_XPW 
SPS$B_MAX-RBF:: .BYTE NSPSC_MAX—RBF 
SPSB_R_CRBTHR::.BYTE NSPSC_R_CRBTHR 


‘ 
60 
362 | 
8 04 8g : The following table is used to ae a received message into an event. It 
004 64 ; is ordered according to the most likely received event and is terminated 
pee 9? : with a longword of zero. 
Babe 89 ; It also contains miscellaneous information -- what the minimum size of the 
oboe 63 3 message is, and whether or not the message size is fixed or variable 
0004 Pie 
00000000 0004 371 RCVMAP_B_MSG = 0 
00000002 9004 375 REVMAPTBcEVT = 2 
OOOOF F FF Boe n RCVMAP_C_END = *X<FFFF> ; MSG code used to terminate table 
$49 zg «MACRO MAP_RCV_MSG MSG,FIXED,MIN_SIZ 
0004 78 -BYTE NSPSC_MSG_'msg' ; neesage type 
0004 79 -IF NB,FIXED :; 1 if fixed sized message, else 0 
Bape 9 -BYTE min _siz i fixed - enter minimum msg size 
94 86 a -BYTE -min_siz ; variable - enter negative min msg siz 
Bone rf: BYTE NETEVT$_'msg' : Event code 
Babe 6 -ENDM MAP_RCV_MSG 
Bone 38 NETSAT_RCVMSG: 
0004 90 MAP_RCV_MSG DATA, — ; Data message 
9007 91 MAP-RCV"MSG DTIACK, , 7 ; Data Ack 
OA 6 MAP_RCV_MSG LS, » ¥ 3; Link service message 
000D 95 MAP_RCV_MSG LIACK, , ? 3; Link service/Interrupt Ack 
Bois 94 MAP_RCV_MSG INT, me ; Interrupt message 
01 95 MAP_RCV_MSG Cl, : "9 ; Connect Initiate 
0016 36 MAP_RCV_MSG CA, .. ; Connect Ack 
Bot? 97 MAP_RCV_MSG cc, ° 3 3 Connect Confirm 
1¢ 4 MAP_RCV_MSG dl, . ; Disconnect Initiate 
003 130 MAP_RCV_MSG oc, Pe ; Disconnect Confirm 
FFFFFFFF 00 : 431 -LONG -1 ; Terminate the table 
0026 4 § -ALIGN LONG 
0028 40 


NE TDRVNSP 
v04-000 


L 2 
P module for NETDRIVER 16-SEP-1984 234: AX/VMS Macro V04-00 P 
UN Setup KMD for the RUN st Susp 1one BF:5000% EALTKCE. cReSmevonvete.mans1 me 


-SBTTL NETSSETUP_RUN = Setup XWB for the RUN state 


zi 
m 
30 
om 
“no 
ms 
=e 
_Zz 
Dw 


INPUTS: RS XWB address 
RO Scratch 


OUTPUTS: RO Low bit set 
ALL other registers are preserved. 


WIAA APO PIPIPIPIPIPOPOPOPIPIPIPINPUPoTPononnn Cet 


PPPPP PPP PP \ PP PWN F VWNVOOOMOOOOOHAAOAANOOVMAOOOO WWM odmccccccocecscscs UO 


Determine the number of receive and transmit buffers ‘donated’ by 
the system. 


Although this buffer ‘donation’ does not strictly adhere to VMS 
conventions it is bounded (fixed number of buffers per Link in the 
worst case) and allows for a significant performance gain and much 
simpler code. In addition, it means that processes can use DECnet 
efficiently even though they ney have low BYTLM quota. and hence 
BYTLM does not have to be set rid 


iculously high 
it just about useless). 


and thus rendering 


SOSDODOSDOOSOSOOSOSOSOSOOOOOSOOOSDOOOOOOODOOOOOO OOOO OOOO OOO QOOO OOOO 
DAA AAA TI AAA ATI AAA & EB AAA AAI II 

Pe et ot et ot ot a MUU UU UUUUMUUe MUM UeMeAAHMeeee eee 
AONUMA BB BE BBE BWW nononononononnony 2 2 OOOO 
DOW NAUE WN OO O09 NOAUE WN OOO NOAU EWN 0 ODNOAUEWN 0 ODNOUEWN ODDO 


; 
; 
3 ETSSETUP_RUN: : ; Setup XWB for RUN state 
O7DE 8F BB $ PUSHR #*M<R1,R2,R3,R4,R6,R7,RB,R9,R1I0> |; Save regs 
0 : 
3 3 Determine XWBS$W_REMSIZ - it can be no larger than XwB$W_LOCSIZ. 
0 : 
30 AS dO 0 MOVL XWBSL_VCB(RS) ,R2 3; Get RCB 
40 AS 42 a5 61 00 CMPW XWBSW-REMSIZ(RS) ,XWB$SW_LOCSIZ(R5) : Compare sizes. 
0S 18 00 BLEQU§ 20% ; If LEQU then oka 
42 AS 40 AS b0 | 208 MOVL XWBSW_LOCSIZ(R5) ,XWBSW_REMSIZ(R5) ; Use smaller for hemsiz 
0 aa 
0 3 Links are to a given path by having a non-zero XWB$W_PATH value. 
0 5 Since the path selection is forced the Link is ‘non-adaptive’ but 
0 3 is much more efficient since it uses a faster interface an may 
. 3 use a larger buffer than RCBSW_ECLSEGSIZ. 
0 : If this is a ‘non-adaptive’ Link, then convert the permanent copy 
3 3 of the route-header since it's format is path dependent. 
0 ; 
53 38 AS 9A 00 MOVZBL XWBSW_PATH(RS) ,R3 ; Get path index 
18 13 00 BEQL 30$ : If EQL, path is not forced 
51 0000'CS pd 00 MOVL XWBSL_PTR_RTHD(RS) ,R1 ; Get route-header pointer 
FFB6" 30 00 BSBW QRLSSETUP_CHAN ; Setup QRL channel 
0D 50 €9 00 BLBC RO, 30 ; If LBC, no channel 
o000'csS §=54 90 00 MOVB R4,XWBSB_ADJ_INX(R5) > Save the Adjacency index 
00v0'cS 51 dO 00 MOVL R1,XWBSL_PTR_RTHD(R5) ; Get route-header pointer 
ae a. ; 30s MOVL R3,-(R1) 3; Store the route-header size 
0 =e 
0 
0 
0 
0 
0 
0 
0 


The number of buffers donated for transmits is currently derived 


~— 
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from fhe NCP ‘Pipeline Quota’’ parameter -- hence nb pool use 
(or misuse) is controlled by the pysten manager since the maximum 


NE TORVNSP = DEC 1 
VO4-000 NETS 9) 


pool used will be ‘Pipeline Quota’’ times ‘Maximum Links’. 


The number of buffers used for receives has not been made a 
parameter for simplicity. It is possible that, rather than making 
it a parameter, it would be better to bound the buffer occupancy 
time by periodically: 


- deallocating the oldest Rcv CXB's wueue to the LSB 
(it hasn't beem ACKed yet 

- using the Special Kernel AST to copy partial messages 
attached to Rcv IRP’s to the user buffer (this is now 
done using an attached (XB count rather than a timer). 


NOTE: Perhaps Limiting the number of CXB's moved to the IRP 
could make the above schemes work better. This means 
that the AST code would have to start processing the 
LSB List (RCV_IRP?) after emptying the IRP List. 


Keep in mind that allowing flexible receive buffering may save 
wasted datalink bandwidth and CPU cycles by reducing the number 
of back-pressure messages and data segment retransmission. 


NOTE: It has been found that being able to buffer at least 
one incoming segment per Logical-lLink is essential for 
for performance -- otherwise too many backpressure 
messages need to be sent. The segment, once buffered, 
should not be ACK'd until the user issue's a receive or 
until the same segment is retransmitted by the remote 

p 
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4 end (in which case the Link should be backpressured 
? until the use issues a receive). 
4 For this reason, it is essential for the eyetee to 
: donate at least one re.eive buffer per logical-Link. 
4 
58 04 4 LRL R8 ; Take no additional quota 
2 ; until implemented 
; : ASSUME NSPSC_MAX_XPW LE 254 ; Make sure it can fit in a byte 
57 62 A2 9A $0 5 MOVZBL RCBSB_ECL_RFLW(R2),R7 ; Get default max XMT CXB's 
12 ; 2 BNEQ 60$ ; NEQ, okay ‘ 
96 be ; Else, use 1 as a minimum 
28 3, 7 : 2 60$: CMPB OY ,AUSPSC RAN IP ; With bounds ? 
57 95 AF GA 0 2 MOVZBL NSPSB_MAX_XPW,R7 mum 
58 9 Gh 70$: MOVZBL NSPS$B_MAX_RBF RS ; Max unACK'd rcv CXB's allowed 
0 $ 
0 3 Complete IOS_ACCESS IRP with success 
50 01 00 MOVL $*#SS$_NORMAL,RO : Setup 10SB image 
51° 42 AS 3 9 MOVZWL XWBSW_REMSIZ(R5),R1 : 10SB second longword 
FF85* 30 BSBW NETSCAPL_ACC ; Complete the access Q10 
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Wo4e000 NETSSETUP. RUN - Setup XWB for the RUN st ey 7 3:36 :6¢ NETACP.SRCJNETDRVNSP.MAR; 1 ° 8) 
ore 19 H 
re OaSt Setup the DATA LSB 
3 etup the . 
a 
50 OOA4 C5 +3 $58 4 MOVAB XWBST_DT(R5) ,RO 3; Get DATA LSB address 
2 1 0 5 BSBB SETUP_LSB 3; Init it 
2C AO 0004 of 0 § MOVAB XWBST_LI(R5),LSBS$L_CROSS(RO) ; Setup cross channel pointer 
2B AO 0 9 0 5 MOVB #\ SBSA_BOM,LSBSB_STS(RO) z Next seg should set ‘BOM’ flag 
51 3 90 O08C 528 MOVB ASR ; Default ‘‘xmt packet window’’ 
57 1 91 QO8F 9 CMP R1,R7 ; Larger than X_CXBQU0 ? 
08 1 092 0 BGEQ gos : If 6Eau yes. Shrink it 
7. @-¢ 8 94 1 DIVB #3,R7,R1 : Else, enlarge packet window 
51 51 80 0098 236 ADDB Ri, ; Use two thirds CxXBQ 
51 96 0098 INCB R1 ; Plus one (to avoid zero) 
93 11 4943 534 BRB 90$ 3; Continue 
51 7 90 OO9F 535 80S: MOVB R7,R1 : Else shrink XPW value 
Oc AO 3651 «90 QOA2 536 90S: MOVB R1,LSB$B_X_PKTWND(RO) 3; Setup ‘'xmt packet window" 
0B AO FF56 CF 90 O0A6 537 MOVB  NSP$B_ADJ_RPW,LSB$B_X_ADJ(RO) ; Init window adjust counter 
OF AO 57 90 OOAC 538 MOVB  R7,LSB$B_R_CxBQU0(RO) : Setup max xmt CXB to allocate 
29 a0 «458 90 0080 539 MOVB R8,LSB$B_R_CXBQUO(RO) 3; Init max rcv CXB's NSP may 
00B4 540 ; buffer before passing some to 
00B4 541 3 the session layer (user space) 
00B4 285 : 
00B4 54 ; 
00B4 544 : Setup the Link-Service/Interrupt LSB 
00B4 545 3 
00B4 546 
50 0004 ¢S 9E 00B4 547 MOVAB XWBST_LI(R5),RO ; Get LI LSB address 
25 10 0089 548 BSBB SETUP_ 3: Init it 
2c AO OOAS4 CS) 9E O0BB 549 MOVAB XWBST_DT(RS5),LSBSL_CROSS(RO) 3 Setup cross channel pointer 
28 AO 3«60601-—S («90 s«00C1~=—s« 50 MOVB #LSBSA_LI,LSB$B_STS(RO) 3 Mark it as LI subchannel ; 
0c AO 360601) 90 «00CS5)~=—s« 5551 MOVB #1,LSB$SB_X_PKTWAD(RO) 3: Init the ‘'xmt gaghet window’ 
0A AO 96 0009 238 INCB LSB$B_X_REQ(RO) : NSP says that 1 Interrupt 
29 AO )3=696 «=200CC:—CO C5 INCB LSB$B_R_CXBQU0(RO) 3: message is implicitly 
OOCF 554 3 requested upon connect 
OOCcF 555 : 
OOCF 556 3 
OOCF 557 $ Finish setting up the XWB and return to the event processor to 
OOCF 558 3 change state and re-process the same event again. 
ne 
50 AS 4€C AS BO OOCF 561 MOVW XWBSW_TIM_INACT(R5) ,XWBSW_TIMER(RS) ; Reset timer 
OF AS 10 AA BODe 286 BICW  #XWBSM~STS_-CON, XWBSW_STS(R5) > XWB now in ‘'RUN’’ format 
O7DE 8F BA Bape 564 POPR #*M<R1,R2,R3,R4,R6,R7,R8,R9,R10> ; Restore regs 
50 01 DO O0DC 22 MOVL #1,RO0 3 
05 OODF 96 RSB 
OE 6 
O60 869 
0E0 5 SETUP_LSB: 3; Common LSB initialization 
21 ge OE 71 PUSHR #*M<RO,R5> : Save regs 
60 30 00 6€ 90 C OE re MOVCS #0,(SPS,#0,#LSB$S_LSB, (RO) : Fill LSB with zero's 
1 BA E 7 POPR #*H<RO,R5> : Restore regs 
5 ts RSB : Done 
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Me aA -SBTTL NETSALTENTRY - Driver alternate entry point 
; | 
0EB 79 ; 
QOEB 580 ; This routine is called by the Executive to pass an ‘‘internal'’ IRP to the 
QOEB 581; driver. ‘'Internal’’ IRP's are those not built via Q10. These IRPs are used 
QOEB Bg 3 by higher level software used to request 1/0 and should not be confused with 
QOEB 85 ; the IRPs built and passed by the Transport Layer to NSP. The action here is 
{ OOEB Be ; to setup the IRP fields as if the packet had been processed by the FDT 
OOEB 585 ; routines. 
OOEB 256 3 
OOEB 587 ; 
ta 58 ; INPUTS: Re = UCB address 
O0EB 3 R3 = IRP address 
O0O0EB 90 ; 
QOOEB 591 ; OUTPUTS: R5-RO may be clobbered. | 
0O0EB 235 ; 
00EB 593; | 
OOEB 594 ;- 
QOEB 595 NETSALTENTRY:: ; Accept an “‘internal’’ IRP 
14 OC A3 1F E1 QOEB 596 BBC #31, I1RPSL_PID(R3) ,110$ ; If BC, not Legal ALSTART IRP 
OFES 8F 6B OOF O 397 PUSHR #*M<R3,R57R6,R7,R8,R9,R10,R11> : Save regs | 
51 32 A3 3C OOFS 599 MOVZWL IRP$W_BCNT(R3),R1 ; Get message size | 

5B 04 OOF8 600 CLRL 11 : Say “can't go to IPL 2" 
oe 8 Ww aree $8) BSBB ALT_ENTRY ; Dispatch on function type 
OFE8 8F BA OOFC 603 100$: POPR #*M<R3,R5,R6,R7,R8,R9,R10,R11> =; Restore regs 
04 50 €9 0100 604 BLBC RO,120$ ; If LBC, IRP was not consumed | 
05 0103 605 RSB : Done 
0104 606 
3C 0104 607 110$:  MOVZWL #SS$_ABORT,RO ; Indicate error 
38 A3 0 3C 0107 608 120$: MOvZWL RO,IRPSL_IOST1(R3) : setup error status 
00000000'GF 17 g1%8 O08 JMP G*COMSPOST ; Another packet for the heap 
0111 611 


— 
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613 -SBTTL NETSFOT_RCV - Process IO$_READxBLK requests | 
ale - -SBTTL NETSFDOT_XMT - Process I[O$_WRITExBLK requests 
616 : 
819 : The user message i segmented into CXB buffers which are queued to the | 
e183 ; DATA LSB. These CXB's are to be passed to the Transport layer for 
$33 3 Soamentacien at the appropriate time. | 
621 : 
6 gi 3: INPUTS: AP Pointer to the Q10 P1 parameter | 
6 : R11-R9 Scratch | 
624 : R8 Must be saved/restored if return to Exec for next 
625 : FDOT routine 
6 g : ; R7 1/0 function code without modifiers 
6 3 R6 CCB address 
6 g 3 R5 UCB address 
6 : RG PCB address 
630 : R3 IRP address 
og) : R2-RO Scratch 
638 : OUTPUTS: R5,R3. Preserved 
635 ; ALL other regs are clobbered. 
637 :- 
638 NETSFDT_RCV: Receiver FDT routine 
48 AS D4 639 “CL RL IRP$L_SES_BUF (R3) Q10 does not use this buffer 
2A AS 2A AB 640 BISW M#IRPSM~COM OMPLX : = QIO interface uses complex, 
641 IRPSM_ ; chained buffers 


and mark as fread” function 
Setup initial action routine 
Continue 


Xmitter's FDT routine 


HAINED! = 

64 IRPSM— FUNC. IRP$W_STS(R3) 
50 72°AF 9E 64 MOVAB B*RCV~COMMON,RO ~ 
06 11 BRB RW_FDT 


NETSFDT_XMT:: 


DAE B&B BUA AIAI NIA PIPPIN 9 4? et 
DIM WO FOOD YD PON MW ES ES NPIM MM OF CWO & 3 
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50 96'AF 9E 647 MOVAB B*XMT_COMMON,RO : Setup initial action routine 
28 «BB 649 RW_FDT: PUSHR #*M<R3,R5> : Save reg's 
2 6C 00 651 P1(AP) ,R2 : Get user VA 
51 04 AC C O26 MOVZWL P2(AP).~R1 : Get Length of transfer 
ec a3 D4 65 IRPSL_SVAPTE(R3) : Say "no buffer’ 
OA B4 654 CLRW IRP$W_BOFF(R3) 3; No byte count quota taken yet 
32 AS 51~— 0 655 MOVL 1, IRP$L_BCNT(R3) ; Setup byte count 2 
58 01 00 $36 MOVL #1,R11 3 Say bey to go to IPL 2 
60 16 697 (rb) : Dispatch 
28 =@=BA 929 POPR #*A<R3,R5> : Restore reg's | 
661 SETIPL #1PLS A ASTDEL : Restore IPL 
06 50 =€9 66 BLBC ; If LBC, error 
00000000'GF 17 663 JMP SEE ESSTORETURN : Return to user with success 
50 Ff €4 665 100$: BBSC #31,R0 1108 : If BS, return error via 10SB | 
9 0000'GF 17 666 JMP G*EXESABORTIO : Abort the 1/0 
0000 * GF 17 roth 110$: JMP C*EKESF INT SHTOC ; Return error via I0SB 


cro V04-00 Page 
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; ALTSTART dispatching 


If BC, write function 


: Receiver's ALTSTART routine 


Assume no attach buffer 


Ls R2 
MOVL IPS. SVAPTE(R3) , IRPSL_SES BUF (RS) . ; Copy buffer address, if any 


none 
tf ttle report error 
Detach buffer 

Get pointer to data region 


Common receive entry point 


Co-routine common processing 
Queue the request 

IRP still there ? 

If EQL no, sent to I1OPOST 


If the receiver is back-pressured off, then open it up again. 


; Assume toggling not needed 
ack=- 
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1 70 ENABL LSB 
1 of¢ 
1 673 ALT_ENTRY: 
35 2A a3 01 EI 8 ore BBC #IRPSV_FUNC, IRPSW_STS(R3),ALT_XMT; 
15D 676 ALT_RCV: 
15D 67 3 
15D 678 : 
15D 667 : Setup buffer address (if any) 
15D 680 ; 
190 681 . 
53 04 015d 6 é CLR 
48 AS 2C A 0 15F 6 
0 1 164 684 BEQL 
23 2A a3 0 EO 0166 685 BES #IRPSV =SHAINED D {PSU STS(R3), 2008: 
2C A D4 0168 686 CLRL IRPSL-SVA 
52 4883 00 O18 687 MOVL @IRPSL~SES rea R2 
017 689 RCV_COMMON: 
017 690 
5E 10 017 691 BSBB MT_RCV_CO 
O7F 30 oir 69 BSBW NEW RCVTIRP 
10 AB «ODS «(0177 s«69 TSTL LSBSL_R—IRP(R8) 
11. 13 O17A 694 BEQL 100$ 
017C 695 3 
017C 696 ; 
017C 697 3 
017C 698 : 
017¢ 99 : 
1¢ AS 0800 8F AA O017C 700 BICW  #XWBSM_FLG_TBPR,XWBSW_FLG(RS) 
06 0E AS) «(06:1 018¢ 701 BBC #XWBSV-STS"RBP, XWBSW_STS(R5),1008; 
1C AS 0800 8F AB 0187 70 BISW  #XWBSM~FLG-TBPR,XWBSQ_FLG(RS5) 
05 018D 703 100$: RSB 
018E 704 
50 2C 3C O18E 705 2008: MOVZWL #SS$_ABORT,RO 
05 0191 706 RSB 
b195 707 -DSABL LSB 
019 708 


Ui. BC, no pressured off 
Toggle back-pressure 
Done 


Setup error status 
Done 


15 
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19 710 
19 711 ALT_XMT: ; Xmitter’s ALTSTART routine 
52 2C B83 00 13 re MOVL @IRPSL_SVAPTE(R3) ,R2 ; Get start of data | 
196 714 XMT_COMMON: | 
0D 20 A3 06 €E1 196 715 BBC #1OSV_INTERRUPT, IRP$W_FUNC(R3),50$ ; If BC, DATA subchannel 
ef 10 0198 ay BSBB ; INT msg setup co-routine | 
58 0D4 C 9E 1x8 71 MOVAB xXWBST LI(RS) RB ; Get LS/INT LSB 
57 C6"AF 9F OIA 218 MOVAB 8*1008,R7 : Replace build routine ptr | 
1 1s 71 BRB ; Contine 
10 Q1A 720 50$: BSBB XMT_RCV_CO ; Common setup co-routine 
57 OD36'CF 9E QIAA 721 MOVAB = wW*XAT_COPY,R7 ; Setup message building routine 
T° BER ¢ 60$: : 
1AF) 7 : 
1AF = 724 : Attach IRP to request List 
1AF = 725 : 
ue 7 § : 
50 10 A8 43 1AF Oo? MOVAB LSBSL_X_PND(R8) ,RO ; Perpare for scan 
51 50 00 0183 728 70S: MOVL ; Make a copy 
50 60 0 0186 709 MOVL  (RO),RO ; Get next IRP 
fs 12 018 730 BNEQ : If NEQ, not Last 
| ae dO is 4 1 MOVL R3,(R1) ; Attach IRP to end of List. 
1BE 7 g : : 
Hs 4 : ; Start building and sending data segments 
3 7 $ ; 
67 16 018 7 JSB (R7) ; Build as many CXB's as we can 
52 58 0 01C 738 MOVL RB,R2 : Setup LSB ptr for subr call 
0714 1 O1C 739 BRW CALC_HXS_XMT ; Determine new HXS value 
0106 8740 3 => update XWBSM_FLG_WHGL 
0106 741 
Bice 74 
BE 3 1€6 743 100$: TSTL (SP)+ ; Avoid call to CALC_HXS_XMT 
06A1 1 0108 744 BRW CHK_INT_AVL_R8 ; Schedule interrupt message 
01CB 745 ; transmission if possilbe 
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1CB 747 
1CB ree -ENABL LSB 
1CB 749 XMT_INT_CO: ; Xmt INT message co-routine 
4A 10 O1CB 750 BSBB Ss COPY JNT_DATA ; Copy data to IRP 
oo 50 £9 ICD 751 BiBC RO, 9008 : If lec, error 
oc 11 o1D9 758 BRB. «108 : Continue | 
1D 754 XMT_RCV_CO: 3; Common XMT/RCV co-routine 
8A 4 B 1D 755 MOVW #SS$_NORMAL, IRPSL ihm ; Init status 
AA 1 B80 0106 136 MOVW R1,IRP$L_10ST1+2(R3) ; Save buffer size 
CA 52 i fe MOVL R2,1RP$L_IOST2(R3) ; Save buffer address 
1DE 536 
Q1DE 760 10$: ASSUME IRPSL_IOQFL EQ 0 
Q1DE 761 ASSUME IRP$B_QUO EQ 4 
atts f6¢ ASSUME IRPSB_CXBCNT EQ 5 
63 7C OQOIDE 764 CLRQ (R3) ; Clear Linkage and CXB quota 
O1E0 765 ; 
O1EO 766 
QO1EO 767 : Switch to XWB context, verify RUN state, locate LSB 
O1EO 768 ; 
O1EO0 769 
O1E0 770 SETIPL #NETSC_IPL ; Synchronize with XWB, etc. 
55 18 A3 01 CB O1E3)= = 771 BICL3 #1, IRPSL_WIND(R3),R5 ; Go to XWB context 
18 13 O1E8 ere BEQL ; If EQL, no XwB 
16 AS =605)=«o91s«CO1EAs 77 CMPB = #XWBSC_STA_RUN, XWB$B_STA(R5) ; RUN state ? 
18 12 OE 774 BNEQ 300$ : If NEQ no, return error 
52 30 A5 D0 O1FO0 775 MOVL XWBSL_VCB(R5) ,R2 3 zotup RCB pointer 
58 O0A4 CS 9E O1F4 776 MOVAB XWBST_DT(R5),R8 ; Get DATA LSB 
O1F9 §= 777 3 
O1F9 39778 $ 
O1F9 §8779 : Call back 
O1F9 780 ; 
O1F9 = 781 : 
9E 16 O1F9 ree JSB a(SP)+ 
O1FB 78 ; 
O1FB 784 3 
O1FB 785 3 Send any new messages and return ‘‘success'' 
gues 
FEO2' 30 O1FB 788 BSBW NETSSCH_MSG ; Schedule message transmission 
50 01 3C O1FE 789 MOVZWL S*#SS$_RORMAL RO : Indicate success 
05 8 4 £9 RSB ; Done. 
50 QO0000AC 8F 00 03 18s 200$: MOVL #SS$_FILNOTACC,RO : Say “'no logical-Link”’ 
11 0 79 BRB 900$ : Continu 
50 OE4 BF 5 8 794 300$:  MOVZWL #SS$ b TBR ABORT .RO 3 ‘ be 
00 50 —Ss‘1F Ee 1 795 ts BBSS #31,R0,900$ 3; Say “return error via I0SB 
8E OD 14 796 900$ TSTL (SP5+ 3; Pop co-routine address 
05 16 79 RSB : Done 
1 79 
17 79 -DSABL LSB 
17 ~=800 


e 
Say ‘not in RUN state” 
| 
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Wwmm—OW 
anon 


og ~m 
SS See 
RRS OS NAAM ANIM FO A FO NNN NNO 


§ 
4 
5 
; 
8 
9 
0 
1 
§ 
4 
5 
; 
8 
9 
0 
1 
§ 
4 
5 
6 
? 
8 
9 
0 
1 
5 
4 
5 
6 
? 
8 
9 


DATA: 


IFNORD 


ASSUME 
ASSUME 
ASSUME 


Probe 


6 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
3 
3 
3 
3 
3 


This is an INTERRUPT message. 
ata if Q10 interface. 


$$_TOOMUCHDATA,RO 
6,1 

0 
1 


#*M<R 
R1,(R 
#*A<R 
#1,R0 


3,R5> 
g) , LRPSL_10ST1(R3) 
»R5> 


EQ O+IRPSL_M 
EQ 4+IRPSL“M 
EQ 8+IRPS$L-M 


I 
I 
I 
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Move the data into the IRP starting 
at IRPSL_IOST1 with IRPS$W_BCNT used to contain the size. 


When the sequence number is assigned to this IRP (see NETSSCH_MSG) 
the IOSV_INTERRUPT flag is cleared in IRP$W_FUNC in order to flag 
the IRP state change. 


Assume Length violation 

Check data length 

If LSSU, too much data 

If BS, then ALSTART interface 
Get mode for probe 


Assume 
Goto 500$ if can't read data 
; Make sure there's 


3 enough scratch space 
he data in the 


Save re 
: Copy da 
; Restore regs 


; Say “success” 
Done 


NE TORVNSP 
vO4-000 


OE00 8F 
58 
05 
OE00 8F 


ze 
mm 

49 
em 
co 
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-SBTTL NETSUNSOL_INTR = Receive from Transport Layer 


The rot Loy ing “unsolicited interrupt’’ routine is called by Transport 
whenever it has received a message addressed to NSP. NSP must process the 
message completely and return to Transport without forking. The message can 
be found in a single buffer of ‘‘complex chetnee (CXB) format. NSP 
wishes to keep the message it must zero its the CXB pointer before returning 
to Transport. 

NSP may need to return the message to its sender. For instance, the 

message may be addressed to a Link which no longer exists. s 

is the case, the CXB is kept and used as the context block for soliciting 
permission to transmit. 


INPUTS: R8 Scratch 


R?7 Length of NSP message (w/o route-header) 
R6 Address of CXB containing the message 
R5-R3 Scratch 
R2 RCB address 
Pointer to first NSP byte in message 
RO Scratch 
CXBSL_R_RCB RCB address (copy of R2) 
CXBSL_R_MSG Ptr to 1st NSP byte in message (copy of R1) 
CXB$W_R_BCNT Length of NSP message (copy of R7) 
CXB$W_R_SRCNOD Source node address 
CXB$W_R_DSTNOD Local node address 


CXB$B_R_FLG LBS if CXB cannot be conusmed due to 
receiver buffering problems 
CXBSW_R_PATH Path number over which message was received 


OUTPUTS: (upon return to Transport) 


R8,R7 Garbage 

R6 O if CXB was consumed. 

Else, original CXB address with CXBS$W_SIZE and 
CXB3B_TYPE unchanged. 

R5-RO Garbage 


PSP PS aS SS So SS SS SS SSS SSS 
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a 
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seshhamny abc Receive message from Transport Layer 


POIPIPOPIPIMPIPININIPNININIPINIPYNINPYININYDAINININPINININPINYAIPINIPYAIMPPINYININININPININIPIAMIPINININININN 


MEAN 2 OOD NAME WN $$ O OO NAME WIN 9 OD NAME WWM O OD NAME WIN 0 OONOU Ewin 


#*M<R9,R10,R11> : Extend to ‘event’ context - 
CLRL R11 : Say “can’t go to IPL 2" 
33 BUMP L,NDC+NDCSL_PRC(R5) ; Inc ‘packets rcvd* counter 
BSBB RCV_MSG ; Process received message 
POPR #*M<R9,R10,R11> > Revert to ‘fork’ context 
RSB ; Return to Transport 
RCV_MSG: 


WOOO OOO 000000000 00000909 09 09 SIN SINISE NOO O 


PELL LLL LLL LL LEE ES 


Rorororory 


NO 


Map the message into an event code and check for message size 
violations. 


| 
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rom Transport ets 83 36 §é NETACP.SRC €) NE TDRVNSP.MAR; 1 ° 

ASSUME RCVMAP_B_MSG EQ 

ASSUME RCVMAP_B SIZ EQ 

ASSUME RCVMAP_B_EVT EQ 

ASSUME NSPSC_ASG_DATA £0 
MOVZBL ag"? ; Get message type code 

MOVB cxse R NSPTYP(R6) : Store it 
MOVAB Nef AT_RCVASG ; Assume DATA message 
BITB #*C<NSPSM_ DATA. Om: ; 
NSPSM_DATA_ “BOM>, “RO 3 fest all but DATA msg modifier bits 

BEQL 20% ; Br if DATA message 

CMPW #RCVMAP_C_END, (R8)+ ; Advance to next anery 
BEQL ; If NEQ, at end of table -- ignore msg 
CMPB R9, (RB)+ 3 Message t type match ? 

NEQ ; loop to try again 

CVTBL (R8)+,RO ; Get min "oize by message type 
BLSS 40$ ; If LSS then variable message size 
SUBL RO,R7 ; ee zoe, * Length by expected size 
BEQL 3 hen okay 

BRW FAT_ERROR 3 Aoeaane too short 

3 Message type unknown. Check to see if its a retransmitted Cl, and 
: if so, convert the code in R9 and try again. Else, report the 

; event. 

CMPB = saR9,, #NSPSC_MSG_CR ; Retransmitted Connect Initiate ? 
BNEQ 7 ; If NEQ no, report event 
MOVB “#NSPSC_MSG_CI,R9 ; Convert to C 
BRB ; Look up table entry for Cl's 
BRW UNK_MSG ; Message type unknown 

: Message type found, continue processing 
ADDL RO,R7 3 eeeuce 9 specage by. minimum size 
BLSS 30 ; oo short 

CMPB R9,S“#NSPSC_MSG_CI 3 Is Stases Connect Initiate ? 
BNEQ 708 ; If NEQ, no 


: First check to see if this is a message being returned since 
; the remote node is unreachable. 


ec #1,CXBSB_R_FLG(R6),60$ ; If BC then not “return to sender” 
33 use a oye 9 

MOVZWL 2(R1),R3 ; Get local Link i.d. 

BSBW NE TSXWB_LOCLNK ; Switch to XWB context 
i; costrors RG 

BLBS ; No associated xWwB if LBS 

CMP CRéeu R_SRCNOD(R6) ,- ; Does the remote node i.d. match ? 


XWBSW"REMNOD (RS) 


4 3 
- DECnet NSP module for NETDRIVER 1 


TORVNSP “SEP-1984 01:34: AX/VMS Macro V04-00 Page 21 
VOo-000 NETSUNSOL_INTR = Receive from Transport g7S Ebr obec 3:30:64 ENETACE. SREINEYDRVNSP.MAR: 1 30) 
8 2 A 55 BNEQ 55$ ; If NEQ then no, forget it, 
57 0000°8F C b § MOVZWL 4 ablated ; Setup ‘‘returned to sender’’ event code 
88 1 1 A BRwW 200$ ; Dispatch to process the event 
071 1 B 9 8 55$: BRW DISCARD 
4 +44 60$: ; 
$63 : Its an incoming connect request. Create an XwB 
Bs 96 : 
81 B85 0283 964 TStw = (RI) ; Skip over local Link field 
co. ol B 965 BNEQ 0$ ; Message format error if non-zero 
A 3¢ B7 308 MOVZWL CXBSW_R_SRCNOD(R6),R3 ; Get source node address for subr calls 
; 8 BB O96 MOVL R ; Setup remote node address for subr. 
x BE 968 BSBW = TRETEST_REACH : Is it reachable ? 
50. «ES C 969 BLBC R ; If LBC, not reachable -- forget it 
A £4 970 MOVL RCBSL_ACP_UCB(R2),R5  : Get UCB address 
35° C8 «971 BSBW 8=— NETSCREATE_xwB ; Get a new XWB and Link slot 
55 ~€8 cB 3°8 BLBS »NO_RSR ; Br if no resources 
O2CE 973 ;; BUMP = W_NDCSW_CRC(R10) ;3 meed to account for resource errors 
0 $3 974 BUMP W,NOC+NDC$W_CRC(RS) 3: Increment ‘‘connects received 
ag BO 02D 975 MOVW CXB$W_R_PATA(R6) ,- ; Store the path over which the message 
C 020C 978 XWBSW-CT_PATH(RSS 3 was received 
01 AS O2DF 97 SUBW3 = #1, XWESWURETRAN(RS),- ; Init PROGESS -- we want to break the 
AS O2E3 =978 XWBSW-PROGRESS(R5) : Link if we timeout before user issues 
eS 979 3; the IO$_ACCESS function 
3 B0 E5 980 MOVW (R1)+,XWBSW_REMLNK(RS) ; Store remote Link address 
0 11 #QO2E9 981 BRB 100$ : Continue in common 
BSB 38 Ts: 
O2EB 984 s Not a Connect Intiate. Find the XWB and verify the partner's 
O2EB 985 j node address. 
OoEB 987 :; 
1 36 O2EB 988 MOVZWL (R1)+,R3 ; Get ‘destination’ Link address 
FDOF* 0 8 cf 44 BSBW NETSXWB_LOCLNK ; ieee 
31 55 €8 O2F1 991 BLBS R5,RTS_NLT ; No associated XWB if LBS 
FE 992 TSTW XWBSwW_REMLNK(RS) ; Remote Link address known yet? 
FE «993; BEQL 75$ : If EQL no, skip remote node check 
O2F4 994; : (for “cluster’’ node implementation 
36 A6 «6B1 OCOO2F4 99S CMPW CXBSW_R_SRCNOD(R6) ,- 3 Is msg from proper remote? 
3A AS O2F7 996 XWBSW_REMNOD (R5) 3 node ? 
O2F9 997; BEQL ; If so, continue 
0 Fo «998: TSTW  XWBSW_REMNOD(RS) + Was the remote address zero? 
2A «12 F9 =—-999 BNEQ RTS : If not, branch 
O2FB 1000 75$: ; MOVW CXBSW_R_SRCNOD(R6) ,- ; Else udpate to use new address 
FB 1001 : XWBSW_REMNOD (R5) ; (this is the local node starting 
FB 1308 ; and changing its address) 
4 1094 80$: ; 
FB 1 : If the state is Connect Initiate Sending (CIS) or Connect Ack 
eis 1900 : Received (CAR) then no remote Link odartes has been established 
re 4 3 yet. 
FB 1 $8 : If the state is Closed (CLO) then the logical-Link has been 
4. ' 19 ; dissolved at this end we must send a ‘‘No-Link, terminate’’ message. 
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FB 101 
FB 101 ASSUME XWBSC_STA_CLO Ea 0 
FB 1014 SSUME XWBSC_STA_CIS EQ 
4 ! 1? ASSUME XWBSC_STA_CAR EQ 2 
FB 1 19 BUMP L,NDC+NDCSL_PRC(R5) ; Inc ‘packets rcvd' counte 
02. ~='1€ 91 6 1 13 BWOSB_STACRS) ,#2 ; Have remote Link address yet ? 
1A A 101 BGTRU 90 s if GTR then yes 
1E S 9 9 TSTB XWBSB_STA(RS) 3 CLOSED state? 
1 F 4 BEQL nis NCT : If EQL yes, there's no Link 
B 1 § MOVW (R1},XWBSW_REMLNK(RS)  ; Store remote Link address 
8 15 1 90$: CMPW (R1)+,XWBSQ_REMLNK(RS) ; Is the remote Link correct ? 
§ 19 1024 NEQ RTS_NLT ; If not, branch 
D 18 1025 100$: MOVL R7,R2 : Setup # of unaccounted for msg bytes 
9A 1 10 $ MOVZBL (R&),R7 : Get corresponding event code 
31 3 i i f 2008: BRW NETSEVENT : Process the message 
0324 1029 FMT —oom ; Message format error 
0324 1030 UNK 3; Unknown message type 
0324 1031 DJ ISCARD: ; Discard message 
05 0324 1936 RSB ; Ignore the message 
0325 103 ; (someday may want to log them) 
0325 1034 
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W400 ACTERTS NC - Return to sender as ‘‘no-Li ety 3:30:64 ENETACP. SREINETDRVNSP.MAR; 1 By 
§ ~SBTTL ACTSRTS_NLT - Return to sender as ‘'no-Link-terminate”’ 


The logical-Link addressed by this message does not exist or could not be 
create Use the CXB as the context block with which to solicit Transport's 
permission to send a response message. 


If the received message type was a Connect Initiate, then send a 


‘no-resources' message. se, send a ‘'no-Llink-terminate’’ message. 
INPUTS: R CXB address 
pe Not used 


R4-RO Scratch 


OUTPUTS: R6 CXB address or 0 if the CXB is consumed 
R4-RO Garbage 


ALL other regs are preserved 


Be Be Se Oe Se Oe Oe Be Oe Oe Oe Oe Be Oe Oe Be Se Se oe 
aa 


RTS NLT: 
NO_RSRC: 


ACTSRTS_NLT:: 
PUSHR 


Return to sender as no-Link-terminate 
No resources for inbound connect 

fall thru to ACTSRTS_NLT 

Return to sender as no-Link-terminate 


DARE DPD PPPs rs Be Be BB EE EW 


FW CO COONAN EW O OONOU EW 0 


WPA. AA APIPOPIPIPIPININININIPIPPIPIPIPOPINININPIMINIPININIMININMNY 


made with: 


R5 Fork block address. 
The FPC,FR3.FR4 fields are all scratch and must not 
be modified by while Transport owns the fork block. 
RG Destination node address 
R3 Index of LPD to xmit over 
Zero if Transport is to choose the LPD 
R1,RO0 ‘Scratch 


DDD DPD DP DH WLW D/P OQUNNWNO OP DPN OO MPP PPPS SSSI 
—" 
ee ee ee ed ed ed od od od od = = 2 8 2 
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O7EO 8F 6B #*M<R5,R6,R7,RB,RI,R10> ; Save regs 
51 2C a6 00 MOVL CXBSL_R_MSG(R6),R1 ; Recover original rev'd msg pointer 
61 48 8F 91 CMPB #NSPS$C_ASG_DC,(R1) i; Is this a DC message 
12 13 03 65 BEQL $ ; If EQL yes, ignore the message 
52 09 00 O3 96 MOVL #9 ,R2 : spect ty enough bytes to include NSP 
; header 
OAFO 30 : 68 BSBW CLONE _RCV_CXB 3; Clone a copy of a rcv'd CXB 
09 50 =€9 3 4 BLBC ° 3; If LBC then failure 
2C Ab 2 dO 3 0 MOVL R1,CXBSL_R_MSG(R6) ; Save message pointer 
55 6 00 4 71 MOVL R6,R5 ; Use CXB as ‘request block’ 
05 10 4 2 BSBBEté«dA‘(OS;: : Continue in common 
O7EO BF BA 034 74 5$: POPR #*M<R5,R6,R7,RB,R9.R10> ; Save regs 
05 4 75 RSB 3; Done 
4 6 
4 7 
" 8 10$: 
4 80 Solicit permission from Transport to transmit a message. Note 
Be that the request could suspend us indefinitely. The call is 
4 
; 
3 
9 
0 
91 
92 


WAAAAAAAAAA 
PRR RPE 
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52. 28 A 
FCA9" 

50 

50.55 
FCAQ’ 

56 

OE08 8F 
58 

50 ? 2c PH 
66 18 
06 

60 68 8F 
63 

6€ 1 

7E 01 AO 
7E 03 Ad 
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; (SP) Return address of caller 
; 4(SP) Return address of caller's caller 
MOVZWL CXBSW_R_SRCNOD(RS),R4 =; Get remote node addresses 
CLRL R3 ; Indicate no predetermined Line 
MOVL CXBSL_R_RCB(RS) ,R2 ; Setup RCB address 
BSBW TRSSOCICIT 3; Solicit permission to xmit 
; (return may suspended indefinitely) 


*anere from Transport with: 


R7,R6 Scratch 

RS Fork block address 

R4 Scratch 

R3 Not available -- must be saved/restored 
R2 RCB address 

R1 Scratch 

RO Low bit set if permission granted 


Low bit clear if permission denied 


Se DE ee is See ee 


BLBS RO,208 : If LBS then okay to xmit 
MOVL R5,R 3; Get block address 

BSBW NETSDEALLOCATE : Deallocate the block 
BRB 40$ ; Return 


Okay to xmit. Build the message on the stack since the CXB will 
be corrupted before the final em 9 s built. Reformat the CxB, 
move the new message to the CXB, and return to Transport. 


The message is built on the stack starting with the last byte so 
that when it is moved off of the stack conveniently. 


PUSHR #*M<R3,R9,R10,R11> ; Save regs 
R11 ; Say “can't go to IPL 2" 
BUMP L.NDCSL_PSN(R10) ; Update ‘packets sent 
; Build the message backwards 
MOVL CXB$L_R_MSG(R5) ,RO ; Get ptr to original message 
MOVW #NETSC_BR_NOLINK,-(SP) ; Assume ‘no Link terminate 
CMPB #NSPSC-MSG_CI, (RO) :; If rcvd message is a Connect Initiate 


CMPB ©: #NSPSC_MSG_CR, (RO) 
MOVW § #NETSC_DR_RSU, (SP) 


then terminate or... 
a retransmitted Connect Initiate 


then set reason as ‘‘no resources’ 


: Reverse destination and source of the logical Link and 
: node addresses in the new message 


MOVW NSPSW_DSTLNK(RO),-(SP) 
(SP) 


i ; Enter local Link address as source 
MOV NSP$W_SRCLNK(RO) ,- 


: Enter remote Link address as dest 


NE TDRVNSP ~ DECne 
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MOVE — #NSPSC_HSG_DC,=(SP) 
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Enter msg type : 

Enter the Transport ‘‘visits’’ field 

Enter local node address 

Enter remote node address 
; Get ptr to message to be built 

Make a working copy 

G_DATA, (R3)+ Enter Transport message type 

)F Enter Det sSre node addresses 


“X7XPORT (RS), ; 
)+ : Enter Visits, NSP msg type, Dst and 
: ea 


R 
Src Link addresses, son code 

Setup message size re 

Address of I/0 ‘‘end-action'’ routine 

Setup buffer address 

Tell Transport ‘okay to xmit"’ 


00' 


YVIMOow COCDCOW 
OGOW WWW 


POPR #*M<R3,R9,R10,R11> Restore regs 


Return to Transport with: 


M—OOONAOULS WN OVOONOULSWN—O Wo 


On return, the CXB and registers are setup as follows: 


0009 09 00 09 08 & & SM NWWIWWIOD & NW OW 


wm emer meee meee = + 


11 bytes long. CXBSL_FLINK and CXBSL_BLINK may 
be used by the Transport layer. CXxB$W_SI 
must be correct. CXBS$B_TYPE must be DYNS$C_CXB. 


Starts with CXB$B_CODE (byte 11) and continues 

to CXBSC_LENGTH. This area is read-only to 

Transport and below. It cannot even be 
saved/restored. 


+ + 
' Datalink {| Starts at CXBSC_LENGTH and is at least 
Layer : CXBSC_DLL bytes long. Used by the datalink for 


ECL 
pure area 


impure area protocol header or state information. 


$eoeeccceccececos 


Must be quadword aligned and starting no sooner 


body of 
than CXBSC_LENGTH + CXBSC_DLL (= CXBSC_HEADER) 


poowweecccoescens 


Datalink 
Layer 
impure area 


peeceeocee wee e noc 


Used by the datalink layer for protocol (e.g., 
checksum) or state information. Must be at 
least CXBSC_TRAILER in Length. 


R7 Size of message 
R6 CXB address 
R5 arbage 
if “quick solicit’’ not requested 
Else, pointer to request block (XWB fork block) with 
FRKSL_FPC pointing to the “‘quick solicit’’ routine 
R3 IRP address -- unmodified from call 
Re Address of Endoact ton routine to call on 1/0 competion 
R1 Ptr to Ist byte in standard Phase II] route-header 


www 
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FIFI IDI at art art rt i i kd hd dd od 
SODOOOOOOO0O00 OOOO 0000009 09 09 09 09 09 09 09 SII NII NSIS NN NIAAA AAAAAAOAOOUMMIUIUIUIUIUIVIUIUT 
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1 ~SBTTL ACTSRCV_ - Respond to a received Connect Confirm message 
1 ~SBTTL ACTSRCV_ - Respond to Connect ate gS 
18 eo -SBTTL ACTSRCV_ - Process received Connect Initiate message 
0; 
; These routines process received connect messages 
4 ; INPUTS: Re Scratch 
> R7? Scratch 
o 3 R6 CXB address 
r 2 RS XWB address 
8: R4 Scratch 
93 R3 Scratch 
0; R2 Number of as yet unaccounted bytes in message 
1g R1 Pointer to first unparsed byte in message 
3 : RO Scratch 
: ; OUTPUTS: R8,R7,R4,R3,R2,R1 are garbage 
o 3 R6 Preserved 
| a RS Preserved 
38 ; RO Standard VMS status code 
0 
41 -ENABL LSB 
4g ACTSRCV_CC:: ; Repond to rcv'd CC msg 
4 MOVZWL #NETSC_DR_ ZERO*2,R0 ; Assume error 
44 TSTW XWBSW~REALNK(RSS ; Test new remote Link address 
45 BEQL 12$ :; If EQL then illegal 
+8 BSBW PRS_CHR ; Parse Link characteristics 
4 BLBC RO,12$ ; If LBC then unsuccessful 
48 CMPB XWBSB_STA(RS) ,- ; Establish timer estimate 
49 #XWBSC_STA_CAR ; unless its been done already 
50 BEQL 10$ 
51 BSBB ACTSRCV_CA 3; Set timer seed value 
2¢ UPDATE L,R2,NDU+NDCSL_BRC(RS) ; Bump “'bytes received’ 
5 MOVZWL #MSG$.CONFIRM,RS : Set mbx message code 
54 BSBW NETSSEND_CS_MBX ; Notify user 
55 BLBC RO,50$ ; Br if error 
5€ BSBW NETSSETUP_RUN : Setup XWB for the RUN state 
57 MOVZWL #NETEVTS CC,R7 ; Set original event code 
28 BRW NETSCOMPLEX_EV ; Enter the RUN state and process new 
3 even 
$9 BRw 100$ ; Report protocol error 
6¢ CA:: 3; Respond to rev'd CA ms9 
6 MOV #1,R3 ; Setup minimum timer value 
64 MOVW XWBSW_ELAPSE(RS),RO : Get elapsed time 
65 BEQL 15$ 3; If EQL then use minimum 
06 MOV SSP RC AAK_DELAY AS ; Setup maximum timer value 
6 CMPW 0 R ; Compare max timer, elapsed time 
68 BGEQU «15 : If GEQU then R3 is smaller 
° MOV Pyke 3; Else use elapsed time 
0 15$: MOVW R3,XWBSW_DELAY(RS) : Setup seed value for timer 
71 MOVL. XWBSL ICBCR ),RO : Get the ICB 
72 ADDW3 #1, 1CBSW_TIM_OCON(RO).RO; Get outbound connect timer (the 1 
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is for possible clock skew) 
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100$ 
BRW NE TSQUE_xwB 


Catch errors here. 


In each case the 


SUBW3 KB Su TIMER( (RS), ,RO,- Replace TIMER with the amount of time 
WBSW_TIMER( ; left before the connect times out 
BGTR y : If GTR then oka 
MOVW #1, XWBSW_TIMER(RS) ; Else use 1 second as minimum value 
17$: RSB ; May change state on return 
ACTSRCV_CR:: i; Process retransmitted CI message | 
BISW a tte LG ged. ; Set “'send connect/disconnect’’ flag 
RSB : Done 
ACTSRCV_CI:: ; Process Cl qepsoge 
BSBW PRS_CHR ; Parse the Link characteristics 
BLBC RO, T00$ ; Br on error 
BSBW Geter ; Parse rene tater of message 
BLBC R ; Br on 


erro 
Queue XB to NETACP 


return is with the low bit clear 


kk dk dd dd td 
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to flag a 


new event to be processed. 
| 


O=> counted str format error 


BNEQ 200$ : If eql then protocol error 
100$ ae oul VT$_PROERR,R7 ; Setup new event 
DIVW XWBSwW_Xx _REASON(RS) ; Set disconnect reason 
BRB ; Continue 
200$:  MOVW #NETSC_DR_RSU,- ; Setup disconnect reason as 
XwBSw REASON(RS) ; ‘'no resources’ 
MOVZBL #NETEVTS_MBXERR,R7 3; Setup new event 
300$: BRW NETSPRE_EMPT ; Pre-empt with new event 


-DSABL LSB 
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NE TDRVNSP = DECnet NSP module for NETDRIVER 16-SEP-1984 01:34: AX/VMS Macro V04-00 Page 29 
v04-000 PRS_CHR - Get characteristics from C et Pi $3 :30:66 ENETACP. SREINETDRVNSP.MARS 1 . 3) 
i3 ! 1g -SBTTL PRS_CHR - Get characteristics from Connect message 
4 1314 ; 
$2 1315 ; 
4 18 PRS_CHR: ; Get Link characteristics | 
‘3 131 : | 
4 1 i§ 3 If any part of the SERVICES field is not recognized then 
453 1320 5 reject the connect. 
| 
50 61 OC 8F go 453 1 - BICB3 #*C<NSPSM_SRV_REQ>,(R1),RO ; Get pertinent service bits 
50 1 1 0458 1324 CMPB #NSPS$C_SROU_REG,RO ; Are they correct ? 
2 3 458 1325 BNEQ 00$ ; If NEQ no 
50 81 90 0450 1 $ MOVB R1)+,R ; Get SERVICES field 
08 EF 0460 1 EXTZV #NSP$V_SRV_FLW,- : Get flow control bits | 
50 50 QO 0462 1328 NSP$S_SRV_FLW,RO,RO ; 
54 01 =O 0465-1329 MOVL § #XWBSMPROTNFC.R4 > Assume "‘no-flow’’ | 
50 00 91 0468 1330 CMPB #NSPS$C_SRV_NFC,RO 3 Is i¢ f 
OF 13 0468 1331 BEQL 10$ ; If EQL yes 
54 02 00 046d 1 § MOVL #XWBSM_PRO_SFC,R4 ; Assume “'seg flow'’ 
50 01 91 0470 1 3 CMPB ss #NSPSCSRV=SFC.RO : Is it ? 
07 13 0473 1334 BEQL 10$ : If EQL yes 
54 D4 0475 1335 CLRL R4 ; Assume "'msg-flow’’ 
50 02 91 0477 1336 CMPB =: #NSPSC_SRV_MFC,RO 3 Is it ? 
3 12 047A 1337 BNEQ $ ; If NEQ no, reject message 
SAAS 54 BB O47 1558 108: BSB RA, xWBSB_PROCRS) : Insert flow control info | 
0480 1340 : 
0480 1341 3 Parse the INFO field. Ignore any part of the field which is 
et 1306 3 not recognized. 
50 81 FC 8F 8B bene 1344 B1CB3 #*C<NSPSM_INF_VER>,(R1)+,RO ; Get NSP version, advance msg ptr 
54 04 00 otf 1346 MOVL #XWBSM_PRO_PH2,R4 ; Assume Phase II! 
50 01 91 0488 1347 CMPB #NSPS$C_INF_V31,R0 ; Phase II ? 
OF 13 0488 1368 BEQL 50$ :; If EQL, no further capabilities 
54 D4 page 1349 CLRL R4 3 Init capgd{ tities mas 
50 00 91 O48F 1350 CMPB 8s #NSPSC_INF_V32,R0 : Version 3.2 ? 
08 13 e854 1351 BEQL ; If EQL, no cross channel ACKing 
50 0 91 0494 1326 CMPB #NSPSC_INF_V40,R0 : Version 4.0 ? 
0 12 0497 135 BNEQ 50$ : If NEQ, version is unknown 
54 18 88 0499 1354 B1SB #XWBSM_PRO_CCA!- ; Cross channel ACK Ing allowed 
49C 1 2? XWBSM_PRO_NAR,R4 ; “'No ACK requested’’ flag allowed 
SAAS 54 88 49¢ 36 50$:  BISB R4,xWBSB_PRO(RS) ; Remember capabilities | 
éA9 1 28 ; 
rm : 2p 3 Parse the SEGSIZ field | 
4A0 1361 : Make gure it's nonzero (the NSP spec has a higher minimum, but | 
a ' 6¢ : TOPS 20 violates it and there's no sense being overly picky). 
50 004A 8F 3C OQ4A0 1364 MOVZWL #<NETSC_DR SEGSIZ>a1,RO ; Assume illegal segment size 
4205 81 8 4A5 1365 MOVW  (R1)+,XQBSQ_REMSIZ(R5) ; Get remote's rcv seg size | 
7 4A9 1 66 BEQL 2108 ; If EQL then illegal | 
50 1 ae 136 MOVB #1,R0 ; Indicate success 
0 4AE 1368 RSB | 
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4 
- DECnet NSP module for NETORIVER® 1973e- 138 
= Get characteristics from C 5S 


EP=19 
-ENABL LSB 


Supporting parse Cl routines 


XWBSB_LPRNAM(RS) ,R3 
MOVPRRAM 
XWBSB_RPRNAM(RS) ,R3 
MOVPRRAM 

(R1)+,R4 
(R3)+,R8 

R4,70$ 

#XUBSC LOGIN-3, (RB) 
movcs_3 

MOVCS_39 

movc$—39 

RB,R 

R3, (RB) 

R3.R2 

908 

#3, (R8) 
KWBSB_DATA(RS) .R3 
(R3) 

rh 
’ 
L 
MOVCSFX_17 


Sos 


#*M<R1,R2,R4,R5> 
XWBSB_RPRNAM(RS) ,R1 


XWBSB-RID(RS) ,R3 
#2, (RT)+,R2 


110$ 
(R1)+,R0 


:30:04 ENETA 


1,R4,1008 
,R2,NDC+NDCS$L_BRC(RS) 


2><1 byte = 


™m 
Pad 
=< 
™~ 
<= 
oz 


acro V04-00 
RCINET 


Setup destination pointer 
Move the dest. process name 
- no return if error 
Setup destination pointer 
Move the src. process name 
- no return if error 
Save flags 
Save current output ptr 
and advance past count field 
Br if no accounting info 
Setup total seate available 
Move User field 
- no return if error 
Move Password field 
Move Account field 
Get count of bytes moved - 
adjusting for count field 
Store count 
Account for ‘‘optional’’ bytes 
Continue 
A null access string is a 3 
(string count) followed by 
zero's (substring counts) 
Get next XWB field address 
Assume no optional data 
Assume success 
Br if no optional data 
Bump ‘bytes received’ 
Move optional data field 
NO return if error 
any bytes left in message ? 
Illegal message if NEQ 


Move remote user i.d. to non-muliplexed portion of the XvB. 
The RPRNAM field, as 
; <1 byte count><1 byte 


= 
; <1 byte count><1 byte = 1><1 byte = 
; <1 byte count><1 byte = 


stored, is one of: 
0><1 byte obsef type not = 0> 


><1-16 process name 
Save regs 


Point to remote process name 
Point to permanent storage 


Get total number of bytes minus those 
used for format type and object number 


If LEQ then no username tex 
Get format type 
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DRVNSP.MAR; 1 (24) 


> 
><4 byte UIC><I-12 process name> 
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110$ 

R 

105$ 

R 

110$ 

#4,R1 

R1 

(R1)+,R2 
#xWBSC_RID.R2 
Rg. (R3}+ 
R2.(R1), (R3) 


#°M<R1,R2,R4,R5> 
S*#SS$_NORMAL ,RO 


(R1) 
» (RB) 


#39 
120 
(RI 
120 
NETSMOV_CSTR 


$ 
) 
$ 
$ 


-DSABL LSB 


¢ us det P49 8 6:54 YAN NOP Macro V04-00 
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If EQL then no name text 
Format type 1? 
If EQL then sss 


; Format type 
If NEQ then it: unknown format type 


; Account for bytes 

; Skip over object number 
; Get count field 

; Too large? 


e 
; If LSSU then use 


Enter count field 


; Enter remainder of text 


; Restore regs 
; Indicate success 


Done 


Test max string count value 
Br if too large 


; Account for space to be used 
; Br if not enough space left 
; Else move it 


Done 


(SP)+ ; Pop return address 
#<NETSC_DR_ACCESS>*2,R0 ; 


Setup failure code 


<Zz 
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TORVNSP - DECnet NSP module for NETORIVER 16-SEP-1984 01:34:22 YAX/VMS Macro V04-00 Pa 3 
VOu-000 PRS_CHR C $ P1986 §3:30:64 NETACP.SRCIJNETDRVNSP.MAR; 1 re Bey 


= Get characteristics from 


aa 
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MOVCSFX Move counted string to fixed tength field 
MOVCSFX_17 Move counted string to field 17 bytes long 
MOVPRNAR Move process name 


The field pointed to by R1 is moved to the fixed length field pointed to by 
R3. The resultant field is always stored as a counted string. If the an 
error is encountered, the caller's return address is poped off the stack 
and the return is to the caller's caller. 


The process name field, as stored, is one of: 


<1 byte count><1 byte = 0><1 byte object type not = 0> 
<1 byte count><1 byte = 1><1 byte = 0><I-16 process name> 
<1 byte count><1 byte = 2><1 byte = 0><4 byte UIC><I-12 process name> 


The process name source field is the same but without the count field 


INPUTS: Pointer to the desination field 
Number of message bytes not yet accounted for 
Pointer to first byte of messa 


e 
Size of destination field CHOVEXEX only) 


Return address of caller 
Return address of caller's caller 


Pointer to first byte beyond fixed length dest. field 
Reduced by number of source field bytes moved 

Pointer to first unmoved byte in message 

1 if successfull, 0 otherwise 


es 
nam 

DDwDwD ww wWAzDwD 
~w 


OUTPUTS: 


o-Nw VU Ow 


+ 
NOTE: These routines assume that the count in R2 of the remaining 
bytes left is : Longword and that the total bytes to be moved 
is less than 255. 


-ENABL LSB 


MOVPRNAM: 
PUSHR #*M<R2,R4,R5> 
PUSHL #<NETSC_DR_FMT>#2 


Move process name 
Save R4,R5; COPY R2 
Assume error 


Establish min. src field size 
Dispatch on format type 


MOVL #2,R2 
SOISPATCH TYPE=B,(R1),- 


SD DD WD WD VD ON IPAM AANA AAA AN AA NAAN AANA NIAAA ANNAN AAAI AANA 


DUP PV PU PUPV PU DPUDUDPV DUI PUPUDU PUPS U IUPUI SUSU SUSU SUSIE 
a ak kt tk a kt tk tk kk ok i ik as st i ks a = = a as a a 4 1 a ss 


ee ea ah al ee et ee ee ee et et et ed et et et et et et et tt ee ee ek ek ee ee ee 
Mt tt I  § MQOODODOOOO OOOO OOO OO O00 0900 0909 09. 09 09 09 09 SI NIN NIN SINS NO AAAAO 


SOD NA AL WN 20 OD NA NE WIN SO OD NAME WIN  O OD NA NEW 0 OD NAME - OODNOAUE 


34 BB 
OA 0D 
52 02 00 
45 
01 Al 


<0, te 3 non-zero ob est number only 
<1, 10$>,- : object Hg “16 taskname 
~ <2, 20$>,- ; object #0, 4 byte UIC, I-12 taskname 
11 BRB 100$ ; Error if unrecognized format type 
95 66 5$: TSTB 1(R1) ; Test object number 


uw 

~m 
VIP POOP s= 
WN» SINFO 


Pp 
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PP YS PS OO 000 OO 0000000909 0909 0909 0909 INI NI NINO OO 


SOOGCGOCOOOOOOOSOGOOOOCOOOOOCSOOOOOOOOOOOOCOOOSOOOOO I5 
ara ah tb et beh bee b e ac eh eh eh eh eh eb eb hh ah ab Ab Ab Ab ab ab hb cb db dab db dh db db db db dh db eh ab hb Ah dh ab hh ee sd 


108: 


208: 
258: 
30$: 


i 


00$: 


and Oe ee 4 4 2 4 8 ds a a as a ss a es ts > 8 bs be a td ts td 9 1s Le a tt 
PARADA AM AAI BB EE BEE AANA AAA AAPOR 


MEW OS OO NAWUE WN O ODA UE WIN 0 OD NA UNEW @ O ODN 
= 
So 
Aad 


MOVCSFX_ 
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BRB 
17: 


POPR 
TSTL 
RSB 


16-SEP-1984 
C B78Ep=19 4 


j 

) 
R3) 
$¢ 


+ 
PRNAM-1,R0 
40$ 

#17,R0 
#*M<R2,R4,R5> 
-(SP) 

(R1),R2 

R2,4(SP) 

ae 


th 

R2,(R1) ,#0,RO, (R3) 
#*M<RO,R2,R4,R5> 
RO 


Catch the errors here 


#*M<RO,R2,R4,R5> 
(SP)+ 


-DSABL LSB 


1 
2 
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If EQL then format error 
Continue in common 
nc for string count subfield 
nc for string text subfield 
Continue inc 
Inc for UIC 
ang for string text subfield 
Object number zero ? 
If NEQ then format error 
Insert cenert of process name 
Establish fixed dst field size 
(not including the XWB$B_xPRNAM 
field which was Just moved) 
Continue 


Setup size of fixed field 


Save R4,R5; COPY R2 
Push error flag 


Get length of source string 
Update for count field 

Update remaining byte count 

Error LSS 

Is source larger then destination 
If GTRU then source was too long 
Move the string, update &1,R35 


Restore R4,R2, UPDATE R2 
Flag success 


Restore R4,R2, UPDATE R2 
error code in R 

Pop caller's return address 
Return to its caller 


n 
otrin count subfields 
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eceive Cl message aa = g eee $3336 ‘6 ENETACE. SRC IJNETDRVNSP.MAR; 1 shea (3?) 


»SBTTL acrency. RTS 
SBTTL Att oat V"Dx 


- Rec 
- Recieve D DI/DC m 
*SBTTL 13480 ORT = Disconnect or abort a link 
SBTTL AC TSCANLNK - Disconnect Link due to user's $CANCEL 


ive Cl pecsere A -sggf ‘returned to sender’ 


+ 


The user is notified o 


f the disconnect via the mailbox associated 
with the Link's UCB. ALL pending IRPs are completed. 


Scratch 

R6 CXB address 

R5 XWB address 

R4 Scratch 

R3 Scratch 

Number of as yet unaccounted bytes in message 
Ri Pointer to first unparsed byte in message 

RO Scratch 


Note: R1,R2,R6 are Listed above for ACTSRCV_Dx_xxx only. 
They carry no useful information for the other routines. 


OUTPUTS: R6 Preserved 
R5 Preserved 


R8,R7,R4,R3,R2,R1,R0 are garbage 


Sete Ge Ge Ge Se Ge Se Se Ge Se Se Ge Se Ge Se Se Se Se Se Se Se Sete 
t 

zz 

nm 


ACTSCANLNK: : Cancel 1/0 request 


nm Ff. & MNEGL #1,R2 No disconnect mailbox message 
06 «11 BRB SET_X Continue 
ACTSRCV_RTS:: Receive ‘returned to sender’’ CI msg 
4 “MOVZUL out TSC _DR_NOPATH,=- Phon att 2 a received gisconnect code 
44 AS WBSW"R_REASON(RS) and thru to ACTSABORT 


Abort a logical Link 


DODO NMMUNWOOOOOCOCOCOOSCOCOOCOCOOOOOOOOOOOOOSOSO ZF 


ACTSABORT: : 
LRL 


R2 No disconnect data 
SET_X: ptt ae XWBSW_R_REASON(RS) ,R7 


LU LVPV PUPPY IUPU SV IUSVSV SUSU SITS SISISISISISISISIIIIIIIIS |—® 
Be eS SSSSSSSSSSSSSSSSSSsSSSsssesssses t_««# 


57 Received reason already set? 


INPUTS: Re Scratch 
| 
| 


os 8 ss so sb 4 ts a ss as 2 a ss > a as ts td a ts dd a ts 2 dh a tt 


4 
44 as 3c ; 
57 0000°8F 81 O5BF #NETSC"DR_INVALID,R? 
7 12 05C4 BNEQ 1 If NEQ y 
7, - 3t6 60 MOVZWL . T$C_DR_ABORT,R7 Else, ube " sort disconnect 
46 AS 3) tf af 9 MOVW XW nit X_REASON(RS) Set disconnect reason for remote 
7 CD 1611 168: BRB CnbL ton 
SCF 161 
SCF 161 
SCF 1614 ACTSRCV_Dx:: 
57 3 3c 6OSCF O61 MOVZWL (R1)+,R7 : Get actual disconnect reason 
BO Q5D2 161 bi WNE TSC. -OR ; Confirm DI message for remote 
46 AS a0 ot XWBSW~ xX TREASON CRS) 
B e CMPL_DISCON: ; Complete disconnect 
506 16 ; | 
209 s : Find disconnect reason code map table entry 


L 4 | 
TORVNSP DECnet NSP no dule for NETDRIVER 16-SEP-1984 01:34: AX/VM cro V04-00 Page 
the ty Act CANLNK = DS sconnect Link due to user mets 2: 36 ‘6 NETAC RCIN NE TDRVNSP.MAR; 1 ° (33) 
D6 1624 : 
44 AS 57 80 D6 1625 MOVW R7,XWBSW_R_REASON(RS) i Setup reason code 
FA23' . ! § BSBW NE TSMAP_ R_REASON + Find mapping table entry address 
DD 1668 : 
DD 19 4 : Notify user of disconnect via mailbox, if any 
D 1631 : 
50 DD 300 16 : PusHL RO ; Save table entry address 
58 00°A9 3¢ SDF 1634 MOVZWL B*REASON_W_MBX(RO),R8  ; Get mailbox MSG$_xxx code 
3 2f 1 5 TSTW the 3; Any user data ? 
F 9 ce. . 7 § BLSS : My LSS then don't send a message 
bee 16 UPDATE t tA pocounce BRC(RS) ; Bump nnee eed Bh 
FAOA’ 30 sF3 16 : 30$: BSBW SEND_CS_MB > Notify 
FAO7" 30 Berg 197) 40$: BSBW WETESEND “hon 3 Cleence’ 7 exiting RUN state 
50 BEDO O5SF9 1641 POPL RO + Restore table gntry address 
51 O0O°AO C OSFC 1966 MOVZWL Bank atoe- - _DR(RO) ,R1 ; Setup ggcone 10S@ longword value 
50 00*A0 C 0600 164 MOVZWL B*REASON W SS(RO),RO 3 ph first I0SB lLongword value 
FOF9" 31 0604 1644 BRw NETSCAPE “ATC ; Complete IO$_ACCESS if its still 
ses 1922 3 pending and return to change state 
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y54-000 ACTER DTACK = DATA ACK message proces et 7 9) :36;64 ENETACP. SREINETDRVNSP.MARs 1 (38) 
-SBTTL ACTSRCV_DTACK = DATA ACK message processing 
~SBITL Oe ERE YL LACK - INT/LI ACK message processing 
~SBTTL NETSPIG_ACK - Common piggy-backed ACK processing 


If the ACK value is within range, the supchenge! block is updated. For valid 
NAK's, the value of the ‘last segment xmitted' is always updated since the 
remote node is requesting retransmissions. if poaaible, LNX can be advanced 
on ACKs to prevent retransmitting unnecessarily. 


The ACK is completely processed. A user IRP for DATA or INT message may be 
completed as a result. ‘Piggy-backed’ ACKs are considered to be independent 
rom the remainder of the message. Any errors encountered with respect to 

the ACK number being out of range are not reported to the calling routine. 


Since -Plggy-backed) ACKS are common, The following code is optimized 
to exit w minimal processing in the expected case that the ACK value has 
already been seen. Optimization also considers NAKs to be rare events. 


INPUTS: R& If NETSPIG_ACK = Ptr to LSB 
If ACTSRCV...ACK = Garbage 


OOOOCCOCOCooo |i + 


SOAAOSAOSOASASASS <a 
PP PWAMY BONN 


R7 Scratch 
F meq CXB address 
Sf XWB address 


Scratch 
R3 ACK field value 
R2 Number of eyes in meoeege not yet accounted for 
R1 If ACTSRCV_ACK then ptr to ACK field in message 
Else pointer to SEG field following the ACK 
RO Scratch 
SP Caller's return address 
4(SP) Caller's caller's return address 


SOOO OCSOOSOSOOOSOSOOSOOSOOSOOOOSOOSOSOOOOOOOOOSOOOOOOOOOOO Os 
PARAL AAAAAAAAAAAA AAA AAO 
COOCCOCCCOOCOCOOCOOCOOCOOCOOoOoOSoO 


os 9 2 sd 8 ts 4 4 ss —) 4 2 _ ss 2 os 4s 2 ss ss a ss as ss — 9 2 ts TD 
SSID DDD DED DDD DD DDD DDD DDD PAA AA AAA AA AA AAA AAAAAAAAAAAA AAA AO 
Bete Ge Se Ge Ge Ge Se Ge Ge Fe Ge Ge Se Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Sse Se Sete Se See Sete Se Ge 
FJ 


DOOOOOOOO OOO OO O00 09 09 09 69 69 09 09 09 09 SINISE PAA AAA AAA AMM 
PURO ODNAU EWN 9 OD NAME WIN 8 OD NAMES WIN 9 OD NAME WN (OOO NOULS Wt 00 


6 OUTPUTS: R8 LSB address 

60 R? Garbage 

60 R4 barbage 

60 R3 If ACTSRCV_ACK then arbope 

60 Else the value of SEG field Hot lowing the ACK 

60 R2 Decremented by 2 since piesrqpecked CK field is 

60 optional and therefore had not yet been accounted for 
60 Ri Advance by two bytes 

$8 RO Garbage 

$8 ALL other registers are preserved. 

0 _ 

Oe0 -ENABL LSB 

60 NETSPIG_ACK: 3; Piggy-backed ACK erecessing 

52 oe + 60 SUBL * R2 3; Account for ACK field 
19 060 BLSS 108 : If LSS then msg is too small 
; t BS8B PROC_ACK ; Process the AC 
53 1 B60 06 MOV (R1)F,R3 ; Get SEGNUM field 
F419 «(061 BLSS NETSPIG_ACK : If LSS, it's another ACK 
05 3 RSB ; Done 
ge D5 061 10$: TSTL (SP)+ ; Pop caller's address 
57 O0O°8F 9A 061 MOVZBL #NETEVTS_PROERR,R7 3; Setup new event 


NE TORVNSP 
v04-000 
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2 
m 
49 
wr 
Qe 
Pid 


F9E3' 31 oth 1796 BRW NETSPRE_EMPT : Pre-empt with new event 
61D 1707 ACTSRCV_LIACK:: : INT/LI ACK message processin 
0004 5 9E 0610 1708 “HOVAB | XWBST_LI(RS) RB : Get LSB ~ ° 
05 =i ? [ 1708 15$ 3; Continue 
624 1711 ACTSRCV_DTACK:: : DATA ACK message processin 
Qn cs 9 D6g4 1712 “MOVAB | XWBST_DT(RS) RB : Get LSB ais . 
5 1 B80 0629 1713 15$: MOVW (R1)+,R3 3; Get ACK field 
11 1 62eC 1714 BSBB PROC_ACK 3; Process it 
52 02 C2 06 f 1715 SUBL ¢ R2 : Is there a 2nd ACK field 
fo 06 1716 BEQL «=s«<15$ : If EQL yes 
0 Sth at RSB : Else, done 
2C AS DO 0634 1719 XCHAN: MOVL L598. .CROSS(RS) AS i Get cross-channel LSB 
09 10 0638 1720 BSBB 0$ : Process the ACK 
2C AB dO 063A 1721 MOVL LSBSL_CROSS(R8) ,R8B ; Get original LSB 
05 O63E 17 ¢ BSB 3 
O63F 17 : 
O63F 1724 PROC_ACK: ; Process ACK value 
53 OD €0 O63F 1725 BBS #NSPSV_ACK_XCH,R3,XCHAN ; If BS, cross channel ACK 
FOOO 8F AB 0643 1756 20S: BICW3 #*X<FO00>,R3,R? ; Get ACK'd segment number 
06 AB AS «(0649 «17 SUBW3 LSB$W_HAR(RB) ,R7,R4 : Get distance to high ACK rev'd 
0S 12 peek 1728 BNEQ 0$ 3 If EQL, we've seen it before 
53 0C £0 065 1769 BBS #NSPSV_ACK_NAK,R3,50$ ; If BS its a NAK, process it 
05 0654 1730 40$: RSB ; Done 
0655 1731 
0655 1036 
0c 00 EE 0655 1733 50$: EXTV #0,#12,R4,R4 3; MUST SIGN EXTEND 
FB 19 Q65A 1734 BLSS 3; If LSS we saw this before 
AS 57 AS O065C 1735 SUBW3 = R7,, LSB$W_HAA(R8) ,RO ; Greater than ‘highest ACK acceptable’ 
50 0B €0 0661 1736 BBS #14,R0,40$ : If BS yes, we can't take it (it must 
0665 1737 ; be old or a race in ‘'segment’’ flow 
0665 1738 : control which will resolve itself). 
0665 1739 3 «branch to enforce LSB Rule 7a. 
0665 1740 3 
0665 1741 3 
0665 rts : The ACK value is ‘legal’, i.e, it can be processed. 
0665 174 : 
0665 1744 . 
AB 57 4=BO 0665 1745 MOVW R7,LSBSW_HAR(R8) 3; Advance HAR 
AB 57 A3 0669 1746 SUBW3 = R77, LSBSW_HXS(RB) ,RO ; LEQ than ‘highest Xmt-able seg’ ? 
50 98 E1 Q66€ 1747 BBC #11,R0,608 3; If BC yes 
A8 57 80 067 1748 MOVW  R7,LSB$W_HXS(R8) : Else, advance HXS 
676 174 3 .--enforces LSB Rule la. 
AB 57 A3 0676 1750 60S: SUBW3 = R7,, LSBSW pCR) 0 3; Greater than ‘last number xmt'd' ? 
50 0B €0 0678 1751 BBS #11,R0,70 : If BS yes, advance LNX 
67F 1736 3 ..-enforces LSB Rule 2a. 
04 53 9¢ E1 Q67F 175 BBC #NSPSV ACK NAK,R3,80$ ; Always update LNX if legal NAK 
02 A8& 7 ~=B0 ret 1754 70$: MOVW «=R7, LSBSW_LAX (RB) ; Reset ‘Last Number Xmtted’ 
6 1755 80$: ASSUME LSBSV_L 3 
28 2B AB «CEB eae 1726 LBS LSBSB_STS(R8),PROC_LIACK; If LBS, LS/INT subchannel 
be B 1758 -DSABL LSB 


‘casein inedinsemeaiaeigeans 4 
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6 B 1760 -SBTTL PROC_DTACK - Process of DATA ACK 
ge ifeh i 
a6 B 1588 ; The DATA subchannel block is updated according to the ACK value received. | 
688 1764 ; Newly ACK'd segements are (conditionally) deallocated and as many user 
pegs 1765 ; transmit IRPs as possible are completed. 
688 1206 3 
0688 1767 ; 
0688 1768 ; INPUTS: R8 = DATA subchannel (LSB) pointer 
0688 109? 3 R7 = New HAR value | 
0688 1770 ; R5 = XWB pointer ; 
86 8 i77i 3 R4 = Number of ‘new’ ACKs received 
68B 1772; R3 = ACK field from message 
0688 1773; RO = Scratch 
068B 1774 ; 
0688 1775 ; OUTPUTS: R7 = Garbage 
0688 1776 ; R4 = Garbage 
0688 1777 ; R3 = Garbage 
0688 1778 ; RO = Garbage 
0688 1779.: | 
0688 1780 ; ALL other registers preserved 
0688 1781 ; 
0688 17 ¢ ;-- 
0688 1783 PROC_DTACK: ; DATA subchannel ACK processing 
7E 4851 7D pone 178s mova R1,-(SP) ; Save regs | 
54 D5 O68E 1786 TSTL RG 3 Any new segment's ACK'd ? 
17. 13 0690 1787 BEQL 100$ ; If EQL no, must be a NAK 
0692 1788 ; 
0692 1789 3 : 
0692 1790 : See if timed segment has been ACK'd 
0692 1791 3 
069 1036 : 
069 1293 ASSUME XWBSV_STS_TID EQ 0 | 
11 0E AS E€9 0692 1795 BLBC XWBSW_STS(R5) ,40$ : If LBC timer is unowned 
OC OF AS 01 EO 0696 1796 BBS #XWBSV_STS_TLI,XWBSW_STS(R5),40$ ; If BS, owned by LI channel 
50 57 48 AS A3 06 1797 SUBW3 XWBSW_TIM_ID(R5),R7,RO ; Prepare 12 bit compare 
03 50 08 3 06A0 1798 BBS #11,R0, : If BS, owner seg # is lorger 
0D1 0 Q06A4 1799 BSBW TIMED_SEG_ACKED ; Timed segment has been ACK'd | 
Q6A7 1800 40S: H 
06A7 1801 3 
06A7 1306 3 ACK the CXB's and determine new ‘‘HXS"’ value 
6A7 180 : 
6A7 1804 . 
3E 10 O6A7 1805 6SBB  =s NETSACK_XMT_SEGS ; Cleanup IRP's, CXB's, etc. 
52 58 B° 6A9 1 BS 100$: MOVL 7 ; Setup LSB address 
0228 0 peace : it BSBW CALC_HXS_LUX ; Calculate new HXS value 
D 06 1809 (SP)+,R1 ; Restore regs 
5 068 ’ ; Done 
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~SBTTL PROC _LIACK - Process INT/LS ACK 


The INT/LS subchannel state is updat 
Interrupt message which has been ACK‘ 


Seeeseeeesescscacacaccccces S2 


ao 


WANNA AN WINIAINN NIAAA AANA 


oOo 


Sta ~“ 
Ne 9 
BREESE EWI AIIWIIPOPOPONHNPUNNI PUN 2 SS 


= 


ed pecoresey to the ACK value. If an 
d then it is posted for completion. 


INT/LS subchannel (LSB) pointer 
New HAR value 

XWB pointer 

Number of ‘new’ ACKs received 
ACK field from message 

Scratch 


Garbage 
Garbage 
Garbage 
Garbage 


zw 
ws 
nnunoun 


ALL other preserved 


; Process INT/LS ACKs 


R1,-(SP) ; Save regs 

R4,#1 : Is the next msg being ACK'd 
100$ ; If LSSU then no 
#NSPSM_FLW_INUSE ,XWBSB_X_ FLW(R5) ; Free the LI message slot 
#XWBSM_FLG_SLI,xWB$W_FCGTRS) ; Nothing left to send for now 


See if timed segment has been ACK'd 


SSUME XWBSV_STS_TID EQ 0 


-o-0 
WWMM Wee sess sess 
@ 


mum 


WR OS OOO NAU EWN O OD NAUE WN $$ O ODNAUE WN OS OONAUL WN OOONOUS 


ANS Pe ee rg pe ed ae 


RO ee ae 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


on 
bo) 


XWBSW_STS(R5) ,20$ ; If LBC timer is unowned 
#XWBSV_STS_TLI,XWBSW_STS(R5),20$ ; If BC, owned by DATA channel 

TIMED-SEG_ACKED : Cleanup and handoff timer 
#NSPSV~FLW_INT, XWBSB_X_FLW(R5),90$ ; If BC, not Interrupt’ msg 


"ACK" the Interrupt segment and complete the user Xmt IRP if 
possible. If there is another interrupt message and the flow 
control allows, then schedule the message for transmission 


LSBSB_X_REQ(R8) ; Remote request completed 
LSBSL_X_PND(R8) ,R7 ; Get the associated IRP ; 
#SS$_RORMAL,R : 1/0 completion status w/o size 
XMT_REQ_DONE : Complete the user 1/0 
CHK_INT_AVL_R8 ; Try to set XWBSV_FLG_IAVL 
(SP)+,R1 3 


Restore regs 
Done 


— | 


dD 5 
NE TORVNSP = DECnet NSP module for NETORIVER 16-SEP-1984 01:34:22 VAX/VMS Macro v04-00 Page 41 
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Me } 9 -SBTTL NETSACK_XMT_SEGS = ACK Xmt Segs, Complete User Xmt IRP's 
6E? 1872 : 
6E7 1 5g ; ACK each CXB and remove if from the List. If CXB$B_CODE=0 then then 
6E7 1874 ; deallocate it. The next newly ACK'd CXB is always the first CXB in the 
ta } e? g tet. 
6€7 1 = :; If the byte quota and transmit-packet-window constrains allow, complete all 
6E7 1 4 3; pending user xmit IRP's. 
6€7 1879 ; 
6€7 1880 ; 
Boe? 1881 ; INPUTS: Re DATA channel LSB pointer 
6—7 1 § 3 ig XWB pointer 
Q6E7 1 3 R4 Number of new segments ACK'd <= must be GTR 0 
06E7 3 4; R3-RO Scratch 
bees 1885 ; 
6E7 1336 ; OUTPUTS: R4-RO Garbage 
06E7 \3 3 ‘ 
O6E7 1888 ; ALL other registers are preserved 
06E7 1889 ; 
06E7 1890 ;- 
O6E7 1891 NETSACK_XMT_SEGS:: ; ACK new segments 
1¢ AS. 0400 8F AA 06E7 1336 BICQ #XWBSM_FLG WDAT,XWBSW_FLG(R5) ; Clear fla 
50 18 AB 00 QO6ED 1893 108: MOVL LSBSL_X_CX P : Get next CXB 
18 AB 10 AO DO O6F1 1894 MOVL CXBSL_LINK(RO) ,LSBSL_X_CXB(R8) ; Remove CXB from List 
0D ag 97 06F6 1895 DECB LSB$B"X_CXBACT( * Account for it 
SAAS 03 B3 06F9 1896 BITW #XWBSM~PRO_SFC!XWBSM_PRO_NFC,XWBSB_PRO(RSS ; Msg flow control ? 
05 12 O6FD 1897 BNEQ 208 ; If NEQ no 
03 4€ AO 06 £1 O6FF 1898 BBC #NSPSV_DATA_EOM,CXBSB_X_NSPTYP(RO),30$ ; If BS, end of message 
OA AB 97 0704 1899 gos: DECB LSB$B~X_REG(RBS ; One more request done 
0707 1900 30$: FH 
0707 1901 3 
0707 1308 3 Clear the ACK-outstanding flag. If there are no more flags set 
fa 190 ; then the CXB is idle and we can either queue it to the free queue 
707 1904 3 or, if we are over-quota, deallocate it. If ony slags remain set, 
0707 1905 3 then decrement the current CXB count since the CXB will be 
0707 1308 ; deallocated when the final flag eventually clears. 
0707 190 3 
0707 1908 : : 
08 AO 02 8A 0707 1909 BICB #CXBSM_CD_ACK, CXB$B_CODE (RO) ; “ACK'' the segment 
OA 12 07 1910 BNEQ 40$ : If NEQ, still on some 
70D +1911 ; datalink'’s xmt queue 
OE AS OF AB 91 070 1316 CMPB L RESO _K_CHBCHT (RE) .LSBSS_N_CHBOUDIRS) 3; Within CXB quota ? 
18 712 «#191 BLEQU 0$ 3 GTRU, over quota 
FR8E9® 3 71 1914 BSBW NE TSDEALLOCATE ; Deallocate CXB in RO 
OF A 97 O717 1915 40$: DECB LSB$B_X_CXBCNT (RB) ; CXB no Longer in use 
05 11 OIA 1916 BRB : Continue | 
0118 CS 9? Of 71C 1917 50$: INSQUE (RO), XWBSQ_FREE_CXB(R5) ; Queue CXB 
c9 54—CéSF y I 1918 60$: SOBGTR R4,10$ ; Loop for each new ACK | 
53 14 ae 1) 724 1920 1008: MOVL LSBSL_X_IRP(RB) ,R3 ; Get first IRP 
2 1 728 1921 BNEQ CHK_XAT_DONE ; If NEQ then got one 
0 s 1 § RSB ; Else, done 
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XMT_REQ_DONE_OK: 
MOVW 


SP PMA TINIPINININININIFIF 1 ot 


SNS NNN NNN OKO 


ANS 
DDDPEDPEDPEDPE DE SAPs & 
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NETSXMT_DONE: : 
PUSHL 


~N 
So 


~™N 
“™N 
>on 
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XMT_REQ_DONE : 


5 
16-SEP-1984 01: 
K Xmt Segs, Comple ety 7 83: 
: Set 
H 1/0 completion. 


RO, IRPSL_10ST1(R7) 


SUBB 

MOVAB LSBS$L~X_IRP(R8),RO 
MOVL RO,R 

mOVL (RO), RO 

BNEQ 308 


MOVL (R7),LSBSL_X_PND(R8) 
CLRL CR?) 

R7,(R1) 

MOVL  LSBSL_X_IRP(R8),R3 


is LEQU the packet-window. 


ées #XWBSV_PRO_NAR, XWBSB_PRO(RS) ,NETSXMT_DONE 
bs $B_X_CXBACT(R8) ,LSBSB_X_PKTWND(R8) 

BGTRU $ 

CMPB —- LSB$B_X_CXBACT(R8) ,LSB$B_X_CXBQUO(R8) 


BLEQU NETSXAT~DONE 

RSB 

RS 

MOVL = IRPSL_IOQFL(R3) 
MOVL 1RPSL UCB(R3) »R5 


COMSPOST 
MOVL LSBSL_X_IRP(RB) RS 


POPL R5 
R 


IRP$W_BCNT(R7),IRPS$L_I0ST14#2(R 
IRP$B~QUO(R7) ,LSB$B_R_CXBQUO(R 


ee 


then completing the 1/0 now ma 
another transmit request and t 


LSBSL_X_IRP(RB) 


NETACP.SRCJNETDRVNSP.MAR; 1 


up IRP for completion, move it to ‘done’ queue, and attempt 


Set I0SB image 
Size of transfer 


Reclaim donated quota 


Perpare for scan 
Make a copy 

Get next P 

If NEQ, not Last 


Remove IRP from ‘PND’ 


Zero it's Linkage 
Attach it to ‘IRP' 
Get first IRP 


Check Xmt IRP List 


Complete all the xmit IRP's allowed by the CXB quota and 
transmit-packet-window and CXB contraints. 


If the number of unACK'd CXB's is GTRU the current packet-window 
serve to cause the user to queue 
S consume pool for CXB's which 

cannot be sent. Hence, in order to avoid using 
don't complete the I/0 request until the number of unACK'd CXB's 


: If BS, keep pipeline 


as full as possible 


Within packet-window ? 


If GTRU then no 
Within CXB quota ? 
If LEQU yes 

one 


Save XWB pointer . 


Detach IRP 
Get UCB address 
Post IRP 
Get next IRP 
f EQL then none left 


Recover XWB address 
one 


pool unnecessarily, 
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“SEP=1 NETACP.SRCIJNETORVNSP.MAR; 1 
-SBTTL ACTSRCV_LI - Receive INT/LS message 


Process a received Interrupt or Link Service message. The format of the 
message is given below. 


15 8:7 0 


power wersowneaccan Rowse ee er ese wn ee oa 


H flw ctl value | flags ' 


See eee me womeawrahonenanenane seen 


bit 0 set to turn on at; backpressure 

bit 1 set to turn off DAT 

bit 2 set if ‘flw ctl cores for INT/LS 
clear if for DATA 


INPUTS: + Gd Scratch 


CXB address 
R XWB address 
R4,R3 Scratch 
R2 Number of as yet unaccounted bytes in message 
at bin to first unparsed byte in message 
cratc 


OUTPUTS: 4 CXB address or ‘'0’’ if CXB is consumed 


XWB address 
Standard VMS status code 


R8,R7,R4,R3,R2,R1 are garbage, all others are unmodified 


CTSRCV_LI:: ; Receive LINK SERVICE messages 


* 
FERRARA AAA AARARAAARAAAAERARAAAAAAAAARAAAAAAAEREAEKAEAAAAAAAe AAA ee 


: NOTE: Since this buffer may be owned by the remote end of the Logical 
: Link if both ends of the Link are on the local node, the CXB 
: contents, starting with the NSP header, cannot be modified. 


—PARBARBAARARARALALALAALALELELALE SASSER SERA REE RE EERE RRR REE R ERR RRR RRR RRR ASS | 


bisw #XWBSM_FLG_SIACK,XWBSW_FLG(RS) =; ALWAYS send an ACK 
MOVAB XWBST"LI(R5),R8 : Get INT/LS LSB 


: Process optional ACK and required SEGMENT NUMBER fields 


MOV = (R11) +, RB : Get SEG field 
BGEQ 10$ ; If LSS then coolly ae ACK field 
BSBW NETSPIG_ACK : eee the A el 
3; = returns to caller’ : caller 
3 on detected errors 
PUSHL R6 ; Save reg - CXB is never 


3; consumed here 


| 
| 
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Va 000 ACTERCY LI - Receive INT/LS message 7$Fb=1 3c 2: 3:64 ENETACP. SREINEY NE TDRVNSP.MAR; 1 . (32) 
oo” A A3 079 Hy SUBW3 shai: HAX (RB) ,R3,RO 3; Distance from nigh ACK xmt'd 
50° 33 79 EXTV 2,R0,RO 3; MUST SIGN EXTEND 
8 79D 40 DECW 3 Is this the next seq number ? 
19 O79F 4) BLSS : If LSS, ae ve seen this before 
4 14 O7A t BGTR : ; 3 it & GTR, seq # is too advanced 
40 39 A6 OO €1 A rf BBC #NSPSV_MSG_INT,CXBSB_R_NSPTYP(R6),50$ ; If Be. Cine SERVICE msg 
7A 45 
7A re : Received message is an INTERRUPT message. Validate INTERRUPT data 
A ‘3 ; and move it to the user's mailbox. 
7A 4 : 
10 3g D1 7A i tMPL R2,4#16 3; Check size of paserruns data 
1A O7AB 2051 BGTRU § : If GTR then il Legal, al 
29 AB 95) «=(O7AD o3¢ TSTB LSBSB_R_CXBQUO(R8) ; Can we accept th 
3F)60 «13> «(078 B2 BEQL 40$ : If EQL NO, ink is lente 
78 54 3; down (don’t NAK if Phase tp 
yee B22 UPDATE L,R2,NDC+NDCSL_BRC(RS) ; Bump ‘‘bytes received" 
7E 71 90 gree 089 MOVB -(R1),=-(SP) ; Backup ptr, save its contents 
61 52 90 orc 058 MOVB = R2,, (RI) : Setup count field 
96 07C4 2059 INCB ; R2 should be tates Length 
58 be 07C6 2060 MOVL #MSG$ le: R8 ; Setup mbx msg type 
F834" 30 1434 061 BSBW NETSSEND_CS_MBX : Build and send mbx ms 
61 8E& 90 gece BO¢ MOVB (SP)+, tRTS 3; Restore clobbered cel 
0275 8F 50 B61 O7CF 2064 CMPW RO,#SS$_NOMBX!1 3; if ba + inolicit due to 
0D 13 0704 2065 BEQL 208 ; no mbx, ACK INT message but 
8706 B98 ; don't flow control another 
0D 50 €9 O7D6 206 BLBC ; If LBC, assume mailbox is full 
1C AS 2000 BF AB 0709 2068 BISW niussne FLG_SIFL,XWBSW_FLG( RS) : Flow control another INT msg 
OOFD CS) 97 O7DF 2069 DECB XWBST “LI+CSB$8_ R_CXBOGU0(RS) 3; And use our quota for this one 
006D 31 O7E3 2070 gos: BRw 120$ ~ ; ACK the INT message 
O7E6 2071 30$: 3 
07E6 876 ; 
O7E6 207 3 Cause a NAK to be sent if partner is phase II. 
Oree S078 
06 SAAS 02 €1 O7E6 076 BBC  #XWBSV_PRO_PH2,XWB$B_PRO(RS) ,40$ ; If BC, not Phase 11 
OE AS 0200 8F AS O7EB 207 BISW #XWBSMTSTS-LINAK,XWBSW_STS(R5) ; Schedule the NAK message 
0071 31 O7F1 O78 40$: BRwW 1408 ~ : Continue 
ere 444 50$: ; 
ere 0 : Process received LINK SERVICE message 
7F4 20 : 
54 «81 FO 8F Ly} 7F4 4 61¢B3 — oi DRV, (R1)+,R4 ; Mask out driver internal bits 
50 81 9 7F9 5 CVTBL 3; Get flow value 
08 54 O02 €1 4a § BBC mspsy’ _FLW_LISUB,R4,60$ ; If BC, for DATA subchannel 
52 0004 CS’ 9E 09 8 MOVAB XWBST_LI(R5),R2 ; Use INT/LS subchannel 
53 6OF'AF 9 9 MOVAB BOS CHK_INT AVL, R3 : Setup action routine for Ll 
14 ~«1 9 ay BRB 3; Continue 
§ 8 AS CS E 35 60$: MOVAB red HY _DT(RS) ,R2 ; Get subchannel block 
AO'CF 5 9 MOVAB W"DATA FLOW,R3 : the action routine address 
13 SAA 00 =«C¢€ 1 94 BBS nue V-PRO_AFC, xWBSB_ PRO(RS) ,90$ ; “no flow’’ control 


Nee ee ees 


H § 
TORVNSP - DECnet NSP module for NETDRIVER 16-SEP-1984 01:34: AX/VMS Macro V04-00 Page 45 | 
¥O4-000 ACTSRCY LA - Receive INT/LS message ets 7 83:36:64 NETACP.SR RC INE TDRVNSP. MAR; 1 7 | v6 
04 5A AS 01 €0 1A 95 BBS #XWBSV_PRO_SFC,XWBSB_PRO(R5),80$ ; If BS, ‘segment flow’ control | 
38 : Else, ‘message flow'’ control | 
5 95 1F 98 70$:  TSTB : Check flow control value | 
C 1 9 BLSS 30$ i; Negative values are illegal 
50 OAA 80 100 80S: ADDB $B_X_REQ(R2) ,RO ; Okay to add to current count ? 
BB 1D 101 BVS 3; if overflow oe rece msg 
OA A2 0 90 9 21 § MOVB RO,LSB$B_X_REQ(R2) ; Else, setup new X_ | 
4 } ? 90$: g 
p 5 : Call action routine with: 
D 21 5 : RS = XWB 
4 198 : R2 = LSB 
0 4 119 : On return, all but RO,R1,R2,R3 must be preserved. 
D 211 : 
$$ 4 11§ ASSUME NSPSV_FLW_XOFF EQ 0 i; Make sure 'XOFF’ is low bit 
10 54 €9 0O82D 115 BLBC R4,100$ : If LBC the ‘XOFF® bit is clear 
0040 8F A8 88 0 138 BISW #XWBSM_ FLG_WBP ,XWBSW_FLG(R5) 5 Backpressure our transmitter 
54 0 Fi 8 6 211 #NSPSV_FLW_LISUB,R4,95$ ; If BC, we're on DATA sub-chan 
6 6 O83A 2118 JSB (R3) ~ ; Call LI action routine now 
B6'AF 9E +t 119 95$: MOVAB B“*SHRINK_XPW,R3 3 Setup new action routine 
54 4 —1 40 120 100$: BBC #NSPSV_ FLO. xO R4 ay A ; If BC, *XON" bit is clear 
AS 06 €5 0844 2121 BBCC #XuBSV- FLG-WBP.XWASW_FLG(RS),110$ : Relax backpressure 
AS 00 3 0849 21 § BBS XWBSV rotsa 120. XWBSW~ at $(R5),110$ ; If BS timer is in use 
OBAO 0 ef 1 BSBW WUANCEL T ; Start timer on any msg that 
5 124 ; needs it -- clobbers RO 
63 16 0851 2125 1108: JSB (R3) 3; Update request count 
8 : ! § 120$: ; 
3 8 : Update LSBS$W_HAX on the LI channel 
53 2130 : 
OOFA CS = B6 5 131 incw fet! eae HAX(RS) ; Update ACK value to send 
FOOO 8F AA 5 1 § BICW ; Mask off junk bits 
OOFA C5 5B 21 "est. LI+LSBSW_ HAX(R5) ; 
OOFA C5 B80 5 134 MOVW XWBST “CIstsBsu- ~HAX(R5) ,= ; Also the highest msg rev'd 
OOF8 C5 i ' 5 XWBST"L1+LSBS$W_HNR(RS) : 
50 01 90 6 ’ $ 140$: MOVB #1,R0 ; Set success 
56 BERD bes 1 § POPL R6 : Restore reg 
0 68 140 RSB ; Done 
B6C 2141 | 


vNSP.mar:1 29° a v5 
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TDRVNSP = DECnet NSP module for NETDRIVER 16-SEP-1984 01:34: AX/VMS Macro V04 
YO4-000 CHK_INT_AVL = Conditional y set XWBSV_FL Bre Eb 19 4 83:36:64 ENETACP. SREINETDR 
~SBTTL CHK_INT_AVL = Conditionally set XWBSV_FLG_IAVL 
~SBTTL CHK_INT_AVL_RB = Conditionally set XWBSV_FLG_IAVL 


The routine is called after an Interrupt flow control message is received. 
If the new flow control count is fensere. and if there are Interru 


pt 
Soesoprs queuse for transmission but with no sequence number yet assigned, 


t 

A 
C 2143 
C 2144 
C 2145 ;¢4 
C 173 3 
C 2147 ; 
ae 

rt: ! » ; then and interrupt message is scheduled for transmission. 
C 2152 ; 
C 21 ‘ ; INPUTS: RS XWB address 
C 2154; R2 INT/LS subchannel LSB address 
; ! 5 : RO Scratch 

et $ ; OUTPUTS: R2 Garbage 

6c 21 § : ALL registers are preserved. 

6C 2160 ; 

ae 

6C 188 CHK_INT_AVL RB: :; Try to set XWBSM_FLG_IAVL 

52 58 00 6C 2164 RB,R2 ; Setup LSB pointer 
6F 2165 CHK_INT_AVL: ; Try to set XWBSM_FLG_IAVL 
OA A2 3 of 166 TSTB LSBSB_X_REQ(R2) ; Any_Interrupt msg requested ? 
11 13 0872 216 BEQL ; If EQL then no 
50 10 A2 00 0874 2168 MOVL SBSL_X_PND(R2) ,RO i Get poneoes IRP 
0B 13 0878 192 BEQL ; If EQL then none 
06 20 AO 06 €1 para 170 BBC #10$v INTERRUPT, IRP$W_FUNC(RO),10$ ; If BC, oh ready used 
1C AS 1000 8F Ag 087t 17 = BI Su #XWBSA_FLG_IAVL.XWBSWIFLG(RS) ©; flag need to build INT msg 
: . vone 
0886 217 


+ 


J 
le for NETORIVER 
nk the DATA transmit-pa 


-SBTTL 
» SBTTL 


The DATA channels Link Subchannel Block (LSB) is processed in co 


5 

1 
SEP= NETACP.SRCIJNETDRVNSP.MAR; 1 
SHRINK_XPW - Shrink the DATA transmit-packet-window 
NEW_DATA_FLOW = React to flow control msg 


nection 


nju 
with the transmitter's flow control type and the transmitter's Re queue to 
determine the value of the highest transmittable segment. This value 
replaces LSBSW_HXS. 


INPUTS: nS 
R 


OUTPUTS: R 


XWB address 
Scratch 
Scratch 
Scratch 
Scratch 


Preserved 
Garbage 
DATA channel LSB address 


Garbage 
Garbage 


ALL other registers are preserved. 


The following two routines are the only routines which may result in 
lowering the value of LSBSW_HXS. 


SHRINK _XPW: 
MOVAB 


Vv 
DIVB 
BBC 
Dives 
ADDB 
BNEQ 
O$: INCB 
0$: MULB3 


NEW_DATA_FLOW: 


#2,LSB$B_X_PKTWND(R2) ; 
#XWBSV_PRO_NAR , XWBS! PRORS) .208; If BC, almost done 


5 tg xmt-packet-window 


XWBST_DT(R5),R2 etup 
Cut it in half 


#2,LSB$B8_X-PKTWND(R2J),- : Get 1/4 of original 
(SP)+,LSBS8_X_PKTWND (R2) ; And add it in 

: If NEQ, okay 
Lasse X_PKTWND(R2) ; Add 1 to prevent zero 
#3,NSP$B_ADJ_XPW,- 3; Get adjustment threshold 
LS8$B_X_ADJ(R2) : Reset threshold (trebled 

3 since we were unsuccessful) 

3; Fall thru 

: Respond to new DATA_FLOW msg 
CALC_HXS_LUX ; Calculate new HXS value 


Since we may be reducing the LSBSW_HXS value, we cannot assume the 
wok sorte of LSB Rule 4a. until the next few instructions have been 
executed. 


Enforce LSB Rule 4a. here PL cotes ine LSBSW_LNX if LSBSW_HXS was 


UBW3 


; reduced below the current L 
§ 


S$W_LNX value. 


LSBSW_LNX(R2),R1,R0 ; Prepare 12 bit compare 


97360-1388 0} 34 :8¢ aes Macro V04-00 Page (4) 
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TORVNSP - DECnet NSP module for NETORIVER 16-SEP-1984 01:34: AX/VMS Macro V04-00 Page 48 
V4 000 NEW_DATA_FLOW = React to flow control ms aad 8:36:64 NETACP.SRCJNETDRVNSP.MAR; 1 ° (4) 
08 50 «#08 CE! 9 § BBC #11,R0,70$ 3; If BC, LNX leq HXS 
; Else, HXS lss LNX (illegal) 
02 Ag 3} 8 4 4 MOVW R1 ,s8eu LNX(R2) 3; .-.enforces LSB rule 4a. 
1C A 0 A é ses BISW #XWOSM_FLO_WHGL,XWBSW_FLG(RS) =; Set wait flag 
¢ ; 
C 8 ; If the timer ticking on the DATA subchannel then it needs to be 
C 3 cancelled if HXS has just shrunk below the segment currently 
é re 3 being timed, or if the Link is now backpressured off. 
C 204 : 
eae “§ ASSUME XWBSV_STS_TID EQ 0 ; 
16 OE AS ED 45 BLBC XWBSW_STS(R5),100$ :; If LBC, no msg being timed 
11 0 AS 01 €E0 C $8 BBS #XWBSV_STS_TLI,XWBSW_STS(R5),100$ ; If BS, LI channel has timer 
09 1C ASO fe C 4 BBS #XWBSV_FLG_WBP,XWBSW_FLG(RS),90$ ; If BS, backpressured 
50 51 48 AS A CA 48 SUBW3 KB SH_TIM 1D(R5),R17RO : Prepare fer 12 bit compare 
03 50 0B 4 CF 4 BBC #11,R0, ; If BC, timed i.d. is leq HXS 
0818 0 th 50 908: BSBw CANCEL_TIMER i; Timer is available for any 
0806 51 i channel which can use it 
05 po08 26 100$: RSB ; Return 
08D 5 


TORVNSP 
V54-000 


L 
net NSP module for NETDRIVER 
HXS... = Cale ‘highest xmt seg send 


1 mites 9 01:38:88 YAseyas Macro V04-00 


NETACP.SRCJNETDRVNSP.MAR; 1 


4 is ‘ -SBTTL CALC_HXS... - Calc ‘highest xmt seg sendable' 
D7 ; 
07 8 ; The DATA channels Link Subchannel Block (LSB) is processed in conjunction 
D7 59 ; with the transmitter's flow control type and the transmitter's IRP queue to 
4 é1 ; determine the value of the highest transmittable segment (HXS) 
D7 : 
gb? 8 ; INPUTS: RS XWB address 
D7 64 ; R3 Scratch 
807 65; R2 DATA channel LSB address 
D7 96 3 R1 Current LSB$W_LUX value 
4 ? 3 RO Scratch 
bBp7 $9 ; OUTPUTS: RS Preserved 
08D7 0; R3 Garbage 
0807 71 ; R2 Preserved 
08D7 i 3 Ri New LSB$W_HXS value 
BBD) te ; RO Garbage 
0807 73 3 ALL other registers are preserved. 
0807 6 3 
ae 
0807 8 CALC_HXS LUX: ; Calc HXS, process FLG_WHGL 
O3DE 30 0807 80 gl SB FILL_XMT_CXBS : Try to fill some 
51 62 B80 OB8DA Hf ~ MOV = —_LSBSW_LUX(R2) ,R1 ; Get LUX value 
00 €0 O8DD 8 BBS #XWBSV_PRO_NFC,- : If BS, ‘'no flow’’ control 
48 SA AS O8DF 84 XWBSB_PROTRS) , 30$ ; . (most commonly used) 
53 OA A2 QA te 85 MOVZBL LSBS$B_X REQ(RE) ,R3 + Get number of seg/msg requests 
01 €0 O8E6 86 BBS #XWBSV_ SFC,- ; If BS, ‘segment flow” control 
21 SA AS OBE HHA XWB$B-PROTRS) ,20$ : Else, ‘message flow’ control 
BEB 2289 : 
tt oY ; Message flow control 
O8EB 38 : R3 contains number of endmofamessoge Sognemte requested but not 
tt 9 3 yet ACKed. Find the number of the highest segment queued within 
EB 94 $ this Limit. 
nh 2 ; 
51 06 A2~ 860 Ha 3 MOV LSBSW_HAR(R2) ,R1 ; Preset R1 assuming X_REQ was zero 
EF 38 ; *- this gets us to 30$ with the 
EF 9 ; correct value in Ri. 
50 08 A2 9E EF 0 MOVAB =-CXBSL_LINK - 3 
F 1 +LSBSL_X_CXB(R2) ,RO ; Prepare for CXB scan 
_6|OUM F § BRB $ 3; Go to end of loop 
50 10 AO 0 F 5$: MOVL ASSL _LINK (RO) RO ; Get_next segment 
gr 1 F 4 BEQL 0 ; If EQL then none left 
F F AB FB 5 BICW3 #*x<F000>,- 3 
51 55 ao FF $ CXBSW_X_NSPSEQ(RO),R1 ; Setup ‘highest seg sendable' 
0 —1 902 BBC #NSPSV_DATA_EOM,- 3 
EE 4E A 904 8 CXBSB_X_NSPTYP(RO) 5S : If BC, not end of message 
B53 4 0907 10$:  SOBGEQ R} : Loop for each message requested 
1—€ «11 3 A 10 we BRB 30$ : Continue 


Page 49 
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NE TORVNSP = DECnet =-SEP-1984 01:34: AX/VMS Macro V04-00 Page 50 
V54-000 CALC_HXS... = Calc ‘highest xmt seg send ets Pi 33:30:64 ENETACE. SREINEYDRUNSP.MAR: 1 ? 39) 

90C 1 H 
2 : ! 3 Segment flow control 
90C 1 : R3 contains the number of segments requested but not yet ACKed. 
2 : ! ; Determine thenumber of the highest segment queued with this Limit. 
90C 231 : 

53 06A 9 1 ADDW_ LSB$W_HAR(R2),R3 ; Calc. highest seg requested 

50 23 af Ag 315 SUBW3 RoR STR : prepare 2 bit eoupere 
12 50 ge 1 0914 BBC ALB. 30$ ; If BC, LUX leq the high seq requested 
51 53 _ F000 8F 918 BICW3 #*x<F060>,R3,R1 ; Else use high seg requeste 

53 O08 A2 A 91 SUBW , B$W_HAA(R2) ,R3 ; Have we already sent a larger seg? 

0453 OB CE 9 BBC #11,R $ : If BC no 

08 A251 «=~B0 09 MOVW  R1,LS8$W_HAA(R2) ; Else yes, we must have just received 
092A 3 poses ve flow control credits. Reset 
88 A ; HAA to make appear that we've never 
92A ; sent the excess segments. 
89 : 30$: 
092A Calculate the number of the highest segment we're allowed to send 
092A based on the transmitter-packet-window. Use the minimum of this 
89 ; value and the value allowed by flow control. 
092A In order to increase pipelining to the maximum extent allowed by 
092A the network capacity (which is oiueye changing), everytime the 
092A acket-window was a factor in reducing HXS we decrement a counter. 
092A hen that counter reaches zero we open up packet-window by 1. f 
092A it is opened too far then some other event (e.g., a need to 
09 retransmit) will cause it to close again. 


NOTE: The adjustment yo tg is decremented whenever HXS is 


Hence, the window value and the number of available 
segments would Limit each other unless pressure is 
applied to open the window when the size of the window 
is in equilibrium with the amount of data available. 


Se Se Ge Se Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Se Se Ge Se Se 


ASSUME NSPSC_MAX_XPW LE 254 ; Make sure it can fit in a byte 


53 «(OC % OA MOVZBL LSBSB_X_PKTWND(R2),R3  ; Get transmit-packet-window value 
53 O6A AO ADDW LSBSW WAR (Re) ORS 3; Add in last ACK value received 
53° £000 BE AA BICW. #*X<FO00>,R : Mask off junk bits 
50 = 51 3 OAS SUBW3 =: R3,,R1 : pcepere for 12 bit compare 
19 50 OB €E0 BS #11,Rr6,408 : If BS, tentative HXS ss HAR+window 


send. Therefore, try to increase the packet window. 


AAA. AAA ADI ANA. AAA AAAI AAAI WIAA AAI AI AINA AIAN AIA AINA AAI AIA AAAI 


PAAAA AAA A AANA AA AE EERE 
DNA AE WIN OOD NOU EWN OOD NA UE WN OOD NAN EWI OOO NOU EWN SO OONO UE WT 


MMMM MNO WIN YS > PP P>rrr>r>rrrrrrrrryr 


: The packet window has restricted the amount of data which we can 
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NE TDRVNSP - DECnet NSP apeyle, for NETORIVER 16-SEP-1984 01: 2 VAX/VMS Macro v04-00 Page 51 
v04-000 CALC_HXS... = Cal "highest xmt seg send g7St Pe 1984 83: 33 ‘6 NETACP.SR CIN NE TDRVNSP.MAR; 1 . (3h) 
) eS 80 +4 $9 MOVW ; Update HXS value 
F6BB CF i 0 CMPB Regn) ; Are we already at the maximum ? 
OC A2 34 71 Hs X ABR TUNDCR2) ; 
1 4 ie BLEQU ; If LEQU then yes 
0B A 9 94A 7 DECB BS$B_X_ADJ(R2) : wootner neog to dives — detected 
0 1 94D 74 BNEQ : If NEQ, don't adjust 
F6AD CF 90 O946F 75 MOVB NSP$B_ADJ_XPW ; ue. threshold 
Ag 933 i: L§B$B-X_ABJ (RS) : 
CA 96 095 7 INCB LSB$B_ , -PRTWND (R2) 3; Open the window by one packet 
i 
2 0 $ Setup the new HXS value and the WHGL flag 
95 : 
04 a2 51 B0 035 Hy MOVW = R1, LSBSW_HXS(R2) : Setup new HK 5 
02 A2 51 B1 95C 84 CMPW R1 “LSBSW LNX(R2) 3 HXS < =" (LNX never > HXS) 
05 13 3208 85 BEQL : If EQL 
1c AS) =620)= «=6—AA «(0962 «2386 BIC #XWBSM_FLG_WHGL ,XWBSW_FLG(R5) 3 Pleat” wait condition 
05 44 +t RSB 3; Done 
10 AS 20 AB 0967 2389 200$: BISW #XWBSM_FLG_WHGL,XWBSW_FLG(R5) 3 Set ‘wait for HXS gtr LNX’’ 
05 beer S305 RSB ; Done 
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NETDRVNSP - DECnet NSP module for NETDRIVER® 16-SEP-19 4:22 VAX/VMS Macro ¥Oee -00 Page 
v04-000 CALC_HXS... = Cale ‘highest xmt seg send 8 3 Fer 9be 6) 30:66 NETACP.SR REIN NE TDRVNSP.MAR; 1 5) 
96C 93 
96C 94 -ENABL LSB | 
96C 95 
96C 3g NEW_RCV_IRP: | 
OBED'CF OF 15 9 “PUSHAB W*RCV_COPY ; Setup intercept routine addr. 
50 1C AB OD Bae 38 MOVL , BSL_R_IRP(R8) ,RO ; Get first IRP 
3 1 974 9 BNEQ 0$ ~ : If NEQ none 
1C AB eS 976 2400 MOVL R eta! R_IRP(RB) ; This IRP. is the first one 
56 20 AB D9 97A 2401 60$: = MOVL L SBSL CxXB(R8) ,R6 ; Get first tx 
19 13 O97E 40¢ BEQL 0$ ~ : If EQL, n | 
20 AB «38610 AB OD 4 40 MOVL CXBSL_LINK(R6) ,.LSBSL_R_CXB(R8) ; Remove ce. from list 
8 AB 3 4 404 DECB LSB$B-R_CXBCNT (RB) ; Account for it | 
52 C AG C 0988 2405 MOVZWL CXBS$WOLENGTH(R6) ,R2 ; Get amount of data 
54 39 AG OA «(098C 4 : MOVZBL CXBS$B-R_NSPTYP(R6) ,R4 ; Get message flags | 
OOFC 30 099 40 BSBW CxB_TO_TRP ; Attach CXB to this IRP 
099 408 RCV_IRP: 
53 1C AB 00 099 409 MOVL LSBSL_R_IRP(R8) ,R3 ; Get IRP 
E1 12 0997 2410 BNEQ 60$ ; If NEQ, got one 
05 0999 2411 100$: RSB ; Done 
099A rdf | 
O99A 241 
51 50 DO O99A 2414 2008: MOVL RO,R1 ; Copy IRP eddress 
50 61 DO 099D 2415 MOVL  (R4),RO ; Get next IRP | 
FB 12 OQO9AO 2416 BNEQ 2008 : If NEQ, got one 
61 53 DO O9A 417 MOVL R3,(R1) ; Else, attach this IRP 
05 O9A 418 RSB ; Done 
O9A6 2419 -DSABL LSB 
O9A6 2420 


NE TDRVNSP 
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OE AS 0080 8F AA 098 
14 11 098 
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module for NETDRIVER 
- Process rcv'd DATA messag 


.SBTTL ACTSRCV_DATA 


-> 
» 
vs 


INPUTS: 


OUTPUTS: 


OVF: 


10$: BRB 
NOT_NEXT: 


Se BO ee Oe Oe te Be Oe Oe Oe Be Oe Oe Oe 


eceived data segment is 
*s message buffer (CXB) 


C 6 
1 AX/VMS Macro V04-00 
NETACP.SRCIJNETDRVNSP.MAR; 1 


- Process rcv'd DATA message 


S2$EP=1986 02:20:08 


processed. If it is acceptable then the 
is moved to the LSB. 


R8,R7 Scratch 
Re CXB address 
XWB address 
R4,R3 Scratch 
2 Number of as yet unaccounted bytes in message 
R1 Pointer to first unparsed byte in message 
RO Scratch 
R6 CXB address or ‘'0’' if CXB is consumed 
R5 XWB address 
RO Standard VMS status code 


R8,R7,R4,R3,R2,R1 are garbage, all others are unmodified 


-ENABL LSB 
; Process overflow segment 


This is the next logical segment but we cannot take it since the 

receiver is in the overflow’’ state. While we are in this state, 

continue ACKing and discarding message segments up to and including 

the next ‘‘end-of-message’’ segment. As soon = — ‘end-of- 
state. 


message’ is processed, exit from the ‘‘overflow 


; Becomes ‘"highest ack xmitted"’ 
: Becomes ‘‘highest number rcvd 
#NS 0$ :; If BC then not Last message 
#XWBSM~STS_OVF ,xWwBSW_STS(RS) ; Clear overflow status 

30$ ; Cause ACK to be sent 


; Segment arrived out of order 


This segment was not the next one expected. If the segment number 
was larger than expected, it is probably due to congestion loss in 
the Rou ing Layer -- for that reason, don't send a NAK since we 

may contribute to congestion at a time when the network needs to 
slow down its traffic rate. 


then it is probably 


If the segment number was less than git ‘ tye 
inal one cou av 


a retransmission. Send an ACK since the or 
gotten lost due to congestion. 


3; Is it already buffered ? 
; If LEQ then yes 


; Cannot take buffer 


#0 ,#12,R4,R4 
NO_ BUF 
Put caching here 
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: We cannot take the buffer, either because the datalink layer needs 
; it or because the user process is over its allowed outstanding 
; segment count. 
: If the partner is phase II we must send a NAK. 
6 BACK ttn ; Request XOFF to be sent 
B #XWBSU_PRO_PH2,XWBSB_PRO(R5),30$ ; If BC, not Phase II 
B #XWBSM~STS-DTNAK,XWBSW_STS(R5) : Send a NAK on next ACK 
B #XWBSM_FLG_SDACK,XWBSW_FLG(R5) ; Cause ACK to be sent 
R ; Done 
BACK_PRESSURE: ; Back-pressure remote xmitter 


this Link. It is in the RUN state trying to transmit the data 
message currently committed to the pipeline. However, the fact 
that we've gotten a receive that we cannot buffer means that the 
Link is about to deadlock since the absence of an owner process 
ee og that we'll never be able to buffer it. Therefore, if the 
XWBSL_PID field is zero then mark the Link for disconnect. 


NOTE: This works in conjuction with the backround timer no-op 
flow control messages in routine T_O_RUN. 


XWBSL_PID(RS) ; Any owner process ? 
: If NEQ then yes 
NE TSMARK_LINK ; Else cause Link to disconnect 


If the remote transmitter is already back-pressured, then cancel 
any attempt to toggle its state. Else, toggle its state. 


Back-pressure the remote transmitter ONLY if there are currently 
no receive IRP's Linked to the LSB (otherwise there would be no 
way to know when to relax the back-pressure). 


LSBSL__R_IRPCRE) ; Any IRP‘s ? 

60$ : If NEQ yes, don't send XOFF 
#XWBSM_FLG_TBPR,XWBSW_FLG(RS) ; Assume no message needed 
#XWBSV_STS_RBP, XWBSW_STS(R5),60$; If BS, already back-pressured 
#XWBSM~FLG"TBPR, XWBSW~FLG(R5) 3 zene back-pressure message 
; Done 


-DSABL LSB 


If the XWBSL_PID field is zero, then there is no current owner for 
| 
| 
| 
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v04-000 ACTSACY DATA - Process rcv'd DATA messag att 3:36:66 NETACP.SRCJNETDRVNSP.MAR; 1 . (42) | 
oF 3 | 
oF ACTSRCV_DATA:: ; Process rcv'd DATA ms 
58 00AG CS OE Hs | : MOVAB. XWBST_DT(RS),RB t Get DATA LSB ’ | 
oF ; | 
$f : Process optional ACK and required SEGMENT NUMBER fields 
OF? : 
53 81 BD O97 3540 Hove —-(R1) +, R3 ; Get SEG field | 
03 18 O9FA 9541 BGEQ «= ; If LSS, really ACK field | 
FCO8 30 O9FC 246 BSBW NETSPIG_ACK 3; Parse and process the ACK 
05 53 Oe Fi OFF 543 10$: BBC #NSP$V_SEQ_NAR,R3,15$ : If BC, no ACK suppression 
39. A680 BF 88 OA03 2544 BISB #NSPSM“DATA_NAR,CXBSB_R_NSPTYP(R6S ; Else, allow ACK suppression 
53__ FOOO 8F AA OQAOB 2545 158: BICW  #*x<FO00>,R 3; Mask off segment # junk bits 
53 24 A8 A3 OAOD 248 SUBW3 LSBSW_HNR (RB) ,R3,RG ; Distance from ‘high seg rcvd' 
01 4 oc 00 €EC BAIS 54 CMPV «6 #0, #12, R4, i Is this next in sequence ? 
Al 12 OA1 548 BNEQ NOT ; If NEQ then no 
88 0E AS =«(07—~=«E0 Al? $8? BBS #XWBSV_STS_OVF ,xWBSW_STS(R5),OVF ; If BS, in overflow state 
OAIE 2551 ; 
OAIE 236 : See how neny CXB's NSP currently has buffered. This does not count 
pale 237 3 the ones which have been ACK'd since the session layer owns those. 
pale 322 3 LSB$B_R_CXBQUO goes to zero when we're running the Link down. 
OAIE 2557 : NOTE: It is not necessery to check if there is an IRP waiting 
OAIE 2558 3 for the secon tne CXB since the difference between 
OAIE 2559 3 LSBSW_HAX and LSBSW_HNR is always zero if there is an 
OAIE 2560 3 IRP waiting. 
OAIE 2561 : 
OAIE 266 : 
OAIE 256 : 
29 AB «628 ABO? pate 564 CMPB LSB$B_R_CXBCNT(R8) ,LSBSB_R_CXBQUO(R8) ; Already at Limit ? 
~~. = BAS 565 BGEQU NO_BUF : if GEQU yes 
OA25 2566 ; 
pas? 567 ; 
OA25 2568 ; It is important to signal the transmitter to slow down (shrink its 
OA25 29? ; transmit-packet-window if it has one) if it starts consuming too 
pA : 259 : many unACK'd buffers. 
BA 5 276 3 The intent is to help the packet flow rate to stabilize with a 
OA25 257 3 minimum number of unACK'd buffers consumed at both the transmitter 
A225 2574 : and receiver ends. The stable packet rate is not affected -- only 
A 2 279 ; the number of buffers required to sustain that rate. | 
Aes 38 3 The value chosen as the threshold for pignalling the transmitter 
OA : 278 : must be large enough to accomodate a slight variance in the 
A 2? 3 session layer receiver rate, but small enough to avoid excess 
A 2 0 3 buffer consumption. It is NOT the number of buffers consumed when 
A 581 : the stable rate is achieved, but attempts to be an upper Limit on 
A 5 § : that value. 
A i | 
08 SAAS 04 €0 OA 5 es #XWBSV_PRO_NAR, XWBS$B_FRO(RS),20$; If BS, allow queue to build 
AGA 6 > to CXBQUO Limit. | 
28 A8& 08 91 OA2A : CMPB ss LSBS$B_R_CXBCNT(R8) : Is this the 35rd buffer ? 
02 12 OAZE 8 BNEQ 208 : If NEQ no, continue 
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MOVAB =CXBSL_LINK*LSBSL_R_CXB(R8) ,R1 
MOVL 


F 6 
IVER 16-SEP-1984 01:34:22 VAX/VMS Macro V04-00 Page 5 
DATA messag aioe t fi EGE NETACP.SRCJNETDRVNSP.MAR; 1 . (23) 
BACK_PRESSURE ; Back-pressure and continue 
CXBSB_R_NSPTYP(R6) ,R4 ; Get message type 
CXBSB-R-FLG(RO) ,40$ ; If LBC, okay to take the CxB 


Clone a new ny since we cannot take this one. Complete remaining 


processing via a subroutine, and return to our caller with the 
original CXB pointer intact. 
CLONE RCV_CXB ; Clone a new one 
RO, 308 : If LBS, okay 
NO_BUF 3; Else, allocation failure 
R ; Save original CXB address 
40$ : Complete processing CXB 
R6 ; 


Recover original CXB address 
Done 


CXBSL_LINK(R6) ; Init the Linked List pointer 
R4,CXB$B_R_NSPTYP(R6) ; Save msg type in the CxB 
R3,CXBSW_R_NSPSEQ(R6) ; Remember the seg # 

R2,CXB$W LENGTH(RG) ; Enter Length of data 
R6,R1,CXB$SW_OFFSET(R6) ; Enter offset to data 

R1,(R6) : Enter pointer to data 


Consume buffer, update the receiver state. Attach the CXB to 
either an IRP if there is one, or to the LSB if there isn't. 


Must check for a none-empty LSB CXB List first to avoid a race 
condition which could result in copying segments out of order. 


R3,LSBSW_HNR(RB) : Becomes new ‘highest # rcv'd'’ 
SB$L_R_CXB(RB) RI > Any CXB's on LSB? 
0$ 3; If 00, put this on at the end 


LSBSL_R_IRP(RB) ,R3S ; Ge 
CxB_TO_TRP : If NEQ, got one 


Attach CXB to the end of the LSB List 


Prepare for CXB scan 
Travel CXB List 


CXBSL_LINK (RO) RI : Get next CXB 
0$ : If NEQ then not end of List 
CXBSL Yentine : Init Link-List pointer 
RO. CKB L_LINK(RO) ; Chain CXB to List 
; Consume CXB 


rN 
- 


eH S°#04Ef0" NETIANTE esnng ERESSISNE GLES302 HECAED.SetSteVOAGRlr aun 9% 
28 A& 8 nt rk} juce LSBSB_R_CXBCNT(RB) : pccount for new CXB 
ABC 


-DSABL LSB 
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- t NSP module for NETDORIVER 16-S 1:34: AX/VMS Macro Vv04-00 _, Page 58 
VOse000 act RCW DATA - Process rcv'd DATA messag g- SEP] 3b 8) 335564 NETACP.SRCINETDRVNSP.MAR; 1 (44) | 
A&C 
3; Attach R7 CXB to IRP 
56 S57 00 A é $38 heap "ROL R7,R6 3; Picku original (xe 
ABF 2655 CXB_TO_ IRP: ; Attach CXB to IRP 
A ; 4 ; : Inputs Outputs 
A ' $36 ; R8 LSB ptr ge 
A . $69 ; 4 tke pointer if consumed, else unchanged 
ABF 266 : R XWB pointer unchanged 
ASF : : RG Message flags garbage 
ABF $64 3 R IRP pointer garbage 
ABF 2665 3 R Segment byte count garbage 
A8F $96 3 R1 scratch garbage 
ABF 266 3 RO scratch garbage 
ASF 266 ; 
QA F $690 ; 
h ff space left ? 
oe F H AOS $7) cng ere ee ST fou ches, ottach to IRP 
49 20 a3 08~ «CET OA95 ers BBC #1OSV_MULTIPLE, IRPS$W_FUNC(R3), 40$ : If BC, data over-run 
ADA 2675 : 
: f the user buffer, but the user has requested 
Gaga rs : geen Fy hime be returned without error if needed -- the 
OA9A O78 : user will issue another read to continue reading the same message. 
AIA 267 : 
: h CXB such that one contains the first 
AGA re : tees Bay Ay Aye er aol te other contains the final portion. 
ASA on6 : Attach the first to the IRP, and the second to the LSB. 
OAIA 268 3 
AIA 2684 3 
(R3) ; Indicate ‘‘partial message" 
38 AS) «©0601 8F 4 ae 68s ete CLONE REV. CXB. IRPSL_IOST1(R3 Frey: “.. r 
3A A7 26 AB BO Ms st MOV LSBSW_ “HAXTROST CxXBSW_R pettecnicaals nin “Rinse hat "OB, 
3; Get amount ‘first ha ata 
be ar $3 a6 AA es) mova ac onearitta : Setup ‘first half’ conete 
= ¢ A 691 BISW aN ecb $M_DATA_EOM,R4 : Tri er IRP 1/0 completion 
mn we AB 69 BLBC 208" 3 t CBC. allocation failure 
- FO Aba 69 ADDL *(R6) : asks *Last hal : data ptr 
OE ee a 694 ADDW R - CxBSY meets Mis i : — “pase peti. e prtses 
1 13 M0 2 s ra 636 AOve CSéaL PEXBUREDCXBSL_LINK(RG) : Move CXB to BEGINING genet List 
MOVL $ CxB : 
a 2 if Ace 638 BRB RPC CxB_TO_TRP ; Loop to process original CxB 
ACE +44 20$ 3 
ACE 701 : Failed to clone a ‘last half’ CxB. 
AcE , § : bane ies new 
ACE 27 : Routine CXB 10, IRP is called in one of two cases: 
RP has arrived. In the 
ACE : 3 ; tee the 9% Should: be: mot In the iateer, one Tat, R° _CXB 
ACE 27 : { st may be non-e i this Fare we must drain Ace it 
ACE 27 $ : now has a missin mere ct (t lest halt: CXB that we couldn® t clone). 
ACE 2708 : Hence, draining the CxB the | is either a no-op or it is required. 


TORVNSP = DECnet NSP module for NETORIV 16-SEP-1984 4:22 VAX/VMS Macro V04-00 Page 59 | 
¥O4000 ACTERCY DATA = Process rcv'd DA AA A messag 873 P= 1984 $3: 34 6 NETACP.SRCIJNETDRVNSP.MAR; 1 ’ (44) | 
ACE 2709 ; 
ot 
ACE 271 : NOTE: fi. acy IRP draining, alwa wove drain IRP$L_SVAPTE and move 
Ate i? 3 IRP L.108T2 to IRP 4a SVAPTE if its negative and CHAINED is 
é C 
ACE 2715 : 
24 AB 66 A&B 8B AC £18 MOV LSBSW whee pi sey HNR Het ; LSB*s CXB List is emp 
OE AS 0100 F A AD 71 BISW #XWBSA_STS_DTNAK,XWBSW_STS(R5S) ; Next Data ACK shoutd b a NAK 
54 0080 8F AA OAD 718 BICW INSPSR DAT tN ake : Tri ger sending of ACK 
039E 30 AD £19 BSBW NETSORAIN_R “Na : Deal l ocate all CXB's attached 
3 to the 
AQ Oar 721 BRB R7_CXB_TO_IRP ; Process original CxB 
Oars 575g 8: | 
ga 4 : : Shrink data in CXB down to what we can handle 
OAE3 2726 ; 
38 AS) 0838 8F BO OAE 727 MOVW #SS$_DATAOVERUN, IAPS) IOST1(R3) ; Report data over-run 
06 54 06 E2 OQOAE9 2728 BBSS #NSPSV_DATA_EOM,R4,45$ : If BS, last seg in messa Ps 
QAED 2729 : (set bit to trigger IRP | 
OAED 2730 ; completion) 
OE AS. 0080 8F AB QAED 2731 BISW #XWBSM_STS_OVF, ert STS(R5) ; Else, set ‘overflow flag” 
52 3A A3 3C OAFS 27 $ 45$: MOVZWL IRPSL_TOSTT+2(R3) ,R2~ ; Take as much as we can 
OC A6 «52. BO OAF? 27 MOVW R2,CXB$W STENGTHGRES : Adjust length of data | 
OAFB 2734 50$: ; 
OAFB 2735 3 
OAFB 2736 3 Move CXB to IRP 
OAFB 2737 : 
OAFB 2738 : 
50 2c A3 DO OAFB 739 MOVL IRP$SL_SVAPTE(R3) ,RO 3; Get attached CxXB ? 
32. 12 OAFF 2740 BNEQ 60$ ; If NEQ, there was one there | 
0801 741 ; 
0801 74 : 
0B01 274 : This is the first CXB to be attached to this IRP. 
0B01 2744 : | 
0801 745 : 
2c A3 56 DO 60801 746 MOVL IRPS$L_SVAPTE(R3) 3; Attach this one 
36 $3 AS = 05 EO 0B05 747 BBS aineay CHAINED, IRP$W_STS(R3),70$ ; If BS, chaining allow | 
254 06 £0 OBOA 2748 BBS aNSPSV" ~DATAN EOM, rR4,70$ ; If BS, this is the ped and 
OBOE 2749 : Last CXB for this IRP | 
20 48 Ad sO‘ fo 0 750 BBS #31, IRPSL_SES_BUF(R3),70$ : If BS, session buffer present 
51 32 a3 C 1 751 MOVZWL RPS ith R3),R1 ; Get size of buffer area needed | 
51 5B Al 9E 0B17 27 g NSPS # DATAS = ; Add in overhead 
1B 27 +TR3SC “is3- TA - g 
1B 2754 Mi it OVERNEAD(R1) R1 3 
F4E2' 1B 2755 BSBW GED 3; Allocate buffer 
5D E9 if 7 § BLBC nO. 3: idIf . faile 
48 a3 dO 7 MOVL ; IRPSL_SES_BUF (R3) ; Save buffer address 
S7 A 5 27 3 MOVAB ee $T_X BATATR2), (R2) ; Stuff address of the data area 
3¢ As. 6 p 9 275 MOVL Re) DT PSL lost eins) ; _in both the CXB and the IRP | 
2 OC A6 3C D 2760 ROVzUL cxBSU_ CENGTH(RGS -R ; Recover amount of data in CxB | 
761 BRB 3; Continue 
166 60$: 3 
ree : Attach new CXB to end of IRP’s CXB chain 


} 


Page 60 | 
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ACTSRCV_DATA = Process rcv'd DATA messag NETACP, 


7 J 
1 50 »o ; ree MOvL _—RO,R1 3 Copy CXB address 
50 10 a0 D 7 3 MOVL CXBSL_LINK (RO) ,RO 5 Get next CxB 
F 1 A 8 BNEQ 0 ; If NEQ, contine 
10 Al 56 OD 770 MOVL R6,CXBSL_LINK(R1) 3; Attach CxB 
10 ag D4 4 771 70$ CLRL FXBSL_LIRK(R6) ; Terminate Linked List 
93 10 O86 77 BSBB. «1508 ; Update state variables etc. 
6 04 4 77 CLRL R6 : Indicate ‘'CXB consumed’ 
05 4 774 100$: RSB 3 Done 
B4 775 
ae | 
4 ore 3 CXB has been attached to the IRP. Update state variables, 
O84 786 3 byte counts, and schedule an ACK message. 
48 2781 ; 
pee 8 UPDATE L,R2,NDC+NDCS$L_BRC(RS) ; Add to total for remote node | 
26 AB 3A AB BO 54 7 MOVW CXBSW_R_NSPSEQTR6), SBSW_HAX(R8); Update “‘highest ack to xmit”’ | 
04 54 07 €0 0B59 2784 BS #NSPS$U_BATA_NAR,R4, : If BS, no need to send ACK yet 
1¢ AS. 08 A8 OBSD 2785 BISW #XWBSM-FLG SDACK,XWBSW_FLG(RS) ; Cause ACK to be sent 
95 a 96 0861 2786 160$: INCB IRP$B_CXBCAT(R3) ; Bump CXB count 
04 A6 CA DO 0B64 At MOVL IRPSL JOsTeCe »,4(R6) ; Save user VA 
3C A352 CCO.s«B69 = 2788 ADDL Re. 1RP L_10ST2(R3) ; Update user VA pointer 
SAAS 5 A2 OB6D 2789 SUBW R2, IRP$L_10ST1+2(R3) ; Consume bytes 
ber] 5791 
0871 279 : If the IRP CXB count is at its threshold, then dispatch to the 
0871 279 : action routine to move the data to the user buffer. Since moving 
0B71 2794 : the data may involve going to IPL 2, the XWB may not be in the 
0871 2795 3 RUN state upon return. 
oer1 579 . 
1454 0 E0 71 798 BS #NSPSV_DATA_EOM,R4 ,RCV_DONE ; If BS, Last CXB for this IRP 
F488 CF 60S A 91 75 2799 CMPB IRP$B CXBCNT(R3S ,NSP$B~R_CXBTHR ; Too many CXB accumulating? 
70 =~1€ 7B 2800 BGEQU§ RCV_COPY ; If GEQU yes, copy to them 
p870 801 3; to the user's buffer 
05 pare ¢ RSB ; Done 
2C AS) =6—D4 «OOB7E 4 200$: CLRL IRPS$L_SVAPTE(R3) ; Detach CxXB 
05 0681 05 RSB : Done 
0B82 2806 


- DECnet NSP module for NETDOR 
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ACTSRCV_DATA = Process rcv'd DATA messag o7$Eb= 1382 2:36:66 NETACP.SRCINETDRVNSP.MAR; 1 a (46) 


8 
0 NETSRCV_DONE:: 
03 38. A 8 BLBS IRP$L_IOST1(R3) ,RCV_DONE ; Branch if successful 
02E i es pone’ oY NETSDRAIN_R_IRPCXB ; Drain all attached CxB's 
9 1 - ; 
9 14 3 Detach IRP from LSB. If there is a Session layer buffer attached 
9 15 : to the IRP (this only happens on non-chained buffer ALTSTART 
4 1 : requests), then the CXB data must first be moved into it. 
9 281 : 
13 48 a 1F E1 9 i§ Bc og] - {RPSL ses pyr (a 30$ ; If BC, no attached buffer 
37 OC AS. «OIF SC; 0 BBC #31, IRPSL_PIDTR3) , 3008 ; If BC, it's a bug 
58 10 089 1 BSBB ss RCV COPY t Move CXB data to buffer 
53 1C AB 00 9 ¢ MOVL Lsost R_IRP(R8) ,R3 : Recover IRP 
3¢ eC AS 1F =O EO—(0B99 BBS 1 RPSL _SVAPTE (R3) 300$ : If BS bug, CXB's not copied 
CAS 48 a3 DO 0B9 si, MOVL  IRP$L_SES~BUF(R3) IRPSL_SVAPTE(R3) ; Move attached buffer 
1C a8 6 b9 5 30$: MOVL (R3),CSBSC_R_IRP(RB) 3 Detach I 
ss § BEQL 50$ 3; If EQL, this is the Last IRP 
FDE6 CF OF Ag PUSHAB RCV_IRP ; Cause return to intercept 
AD 4 8 3 routine 
es , 50$: 3 
OBAD 1 : Send IRP to 1/0 completion 
ee Se 
4 SuBW IRPSL_10ST1#2(R3) ,JRPSW BCNT(R3); Cale xfer size for IOPOST 
5 MOVW IRP$W_BCNT(R3) , IRPSL_IOST1+2(R3); Store xfer size for 10SB 
$ CLRL —sIRP$L10ST2(R35 : Zero second I0SB longword 
MOVL IRP$L_UCB(R3) ,R5 : Get UCB address 
8 JSB G*COMSPOST 3 Another packet for the heap 
9 MOVAB =XWBST_DT(R8),R5 ; Recover XWB 
? S 3; Done 
§ 300$: BUG_CHECK NETNOSTATE,FATAL 


— | 
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v04-000 ACTSRCV_DATA = Process rcv'd DATA messag 5-SEP-1984 02:20:04 NETACP.SRCJNETDRVNSP.MAR; 1 (48) 
cE 45 
ote t$ -ENABL LSB 
CE 48 RCV_COPY2: 
41 5B €9 cf 4 zise R11,NETSQAST ; If LBC, can't go to IPL 2 
Di 20 RCV_COPY1: | 
D1 : 
D1 x ; Detaching the CXB is essential since we may go to IPL 2 to probe 
0801 54 3 the user buffer and an IPL 8 event may cause all CXB's, IRP's etc 
9 36 ; to be deallocated. | 
D1 «285 : 
2C A? 10 AG b9 se 58 MOVL § CXBSL_LINK(R6),IRPSL_SVAPTE(R7) ; Detach it 
OS a? 9 t43 2B DECB IRP$B_CXBCNT(R?) 3; Account for it 
D9 2861 : 
Ht bes : Get user VA descriptor, copy data from CXB 
OBD9 2864 : 
52. OC A6 3C OBD9 2865 MOVZWL CXBSW_LENGTH(R6) ,R2 ; Get number of bytes 
51 04 A6 be OBDD 2866 MOVL 4(R6),R1 ; Get user address 
01D2 0 OBE! 2867 BSBW COPY_DATA ; Update desc., copy data 
10 50 £9 OBES 2868 BLBC RO, 2008 ; If LBC, error 
50 56 be oH 58? MOVL R6,R ; Prepare for deallocation 
F413" 30 OBEA 8 0 BSBW NETSDEALLOCATE : Deallocate the block 
pose Bre RCV_COPY: | 
OBED 287 : 
OBED 2874 3 If there is an IRP and its PID field is non-negative, then the 
OBED 14 ; IRP comes from Q10 and we must get back to the user process at 
eee af8 : IPL 2 to copy the data into the user buffer. 
yeep 378 ; If the PID is negative the IRP came from ALTSTART. If a destination 
ieee 144 $ buffer does not exists, then simply exit without copying the CXBs. 
OBED 2881 ; 
57 1C A8& 00 ED bse MOVL LSBSL_R_IRP(R8) ,R7 3; Get first IRP 
10 1 F1 : BEQL 100$ 3 | L,. none 
56 2c A? 0» 3 Se MOVL IRPSL_SVAPTE(R7) ,R6 3; Get next CxB 
OA 13 OBF 885 BEQL 100$ : If EQL, none 
DO OC A7 1F E1 OBF9 Hy BBC AUG 6 ed aie. RCV_COPY2 ; If BC, must go to IPL 2 
CE 48 A? 1F £0 aco§ 8 BBS # 1, IRPSL~SES_BUF (R7) 7RCV_COPY1 s uf a, vere 9 8 buffer to 
3: co 
05 8 89 100$: RSB ; Else, ignore request 
C 91 
57 1C AB D1 0C04 35 200$: CMPL SBSL_R_IRP(R8) ,R7 ; Same IRP still there ? 
of 12 0c08 9 BNEQ 10$ : If NEQ, we're done 
38 A7 0 3C OQOCOA 94 MOVZWL RO Sots, 10ST1(R7) 3; Setup status 
32 A7 B4 C F 95 IRP$W_BCAT(R7) : Must zero byte-count 
5 0C1 36 210$: RSB 3; Done 
C1 9 
C1 38 
C1 9 


| 
-DSABL LSB 
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~ DEC 
actSR 
34 05 D 
14 «1 
0800 = A 
09 OE AS A CE 
F 6B 
54 1 00 
3 610 
F OBA 
05 
0000'CS 9 
AS 06 90 
OOO00'GF 16 
52. 54 00 
80 8F 90 
S6'AF 9E 
0034'°C5 0 
00000000'GF 17 
OFCO 8F 6B 
0000°CS 9 
OOAS C5 o9E 
8 D4 
34 A D 
02 1 
5B (6 
68 0D 
0400 8F AA 
0800 8F AA 
1¢ AS. 07 1 
QOAA 30 
FFSE a 
00 AS 
0400 8F AA 
50 8E 
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module for NET 
- Process rcv' 


NETSQAST:: 


100$: RSB 
200$: MOVAB 
MOVB 


NETSKAST:: 
PUSH 
DSBINT 


L 
5$: PUSHL 


10$: BBC 


20$: BBSC 


30$: BSBW 
ENBINT 
POPR 
RSB 


ago 


XWBSL_PID(RS) 
1008 : 


#XWBSM_STS_ASTREQ,XWBSW_STS(R5) ; 
#XWBSV~STS-ASTPND , XWBSW_STS(R5),1 


#*M<RO,R1,R2,R3,R4,R5> 


2008 
#*M<RO,R1,R2,R3,R4,R5> 


XWBSS$(R5),R5 

#IPL$_ QUEVEAST,11(R5) 
G*EXESFORK 
R4,R 
#*X<80>,ACB$B_RMOD(R 


5) 
B*NETSKAST ,ACBSL_KAST(RS) 
“XWBSS+xWBSL_PIDTRD) ,A 


NETSKA : 
G*SCHSQAST : 
#°M<R6,R7,RB,RI,R10,R11> : 
WNETSC_IPL ; 
=XWBSS(R5) RS ; 
XWBST_DT (RS) RB : 
KWBSL_PID(RS) , XWBSS+ACBSL_PID (RS) 


R11 
LSBSW_LUX(R8) : 

¥ G(R5)_; 
#XWBSM~STSASTREQ, XWBSW STS(RS) ; 
#XWB (R5) ,208: 


“STSTR5) ,10$ : 


RO : 
#XWBSV_FLG SDT, XWBSW_FLG(RS) , 30S: 
RO, LSBSU_LOX(RE) : 


RB,R2 
CALC_HXS_XMT 
NETSSCH_ASG 


#*M<R6,R7,RB,RI,RIO,R11> 


$ V acro 
:04 (CNETACP.SRCINE 


; Recover XWB address 
; Done 


; Goto AST block context 
$ pots fork level 


; For 
; Get priority boost class 
; Setup Special Kernel mode 


CBSL_PID(RS) Setup PID 


; Save current “Last used xmt #*' 


; Clear request flag 


| 
Release AST block 


v04-00 Page 93 
TORVNSP .MAR; 1 (50) 


chedule Special Kernel AST 


, § 
; we still assigned to process? 


f Fal. no 
ndicate AST request 


00$ ; Request use of AST block 


; Save regs 
; Use 1/0 completion priects 
; Fork to get below I t 


LS_SYN 


Setup AST address 


EQL, Link is not accessed 
Queue the Kernel AST 


Special Kernel AST service 
Save regs 
Go to sychronizing IPL 


Got XWB context 
Get LSB 

re ‘can't go to IPL 2" 

; setup PID, again 

if EQL, no longer accessed 
Say ‘okay to go to IPL 2 


Init wait for buffer flag 


If BC, not in RUN state 

Process transmitter needs 

Process receiver needs 

If BS, new AST request came in 
ile we we're at IPL 2 


Get former LUX value 

If BC, not in RUN state 
Has it changed ? 

f EQL, no 
copy L$s address 
Calc new HXS value 
Schedule new work 


Restore IPL 
Restore regs 
Done 


<Zz 


NE TDRVNSP = DECnet NSP module for NETDRIVER 16-SEP-1984 01:34:22 VAX/VMS Macro V04-00 Page 64 
WOse000 ACTSRCY DATA - Process rcv'd DATA messag ety 7 8:35:64 NETACP.SRCJNETDRVNSP.MAR; 1 . (83) 
cBe $6 FILL_XMT_CXBS 
50 110A 0 cB “ MOVL $SL_X_PND(R2) ,RO ; Get pending IRP 
1 1 CBC 29 BEQL 3 If f L none 
8D A 91 OCB 9 CMPB LSB$B_X_CXBACT(R2),=- ; Active CXB count within packet window? 
CA cc 964 $B_X_PKTWND(R2) : 
1 1A OCC 965 BGTRU ; If GTRU, no 
80 A 91 OCC 208 108: CMPB ait weet ehh 7 : Active €XB count within quota ? 
EA CCB 096 $BSB_X_CXBQUO(R ) : 
98 1 CCA $43 BGEQU 3: If GEQU, can't allocate any more CXB's 
08 5B. C*'é ccc 39 BLBS Ot 708 3; If LBS, vy to go to IP 
04 0C AO 1F CE 344 af BBS #31, I1RPSL_PID(RO),50$ ; If BS then ALTSTART, don't need IPL 2 
FF3B 30 OCD4 36 BSBW NETSQAST 3; Startup AST 
05 peo? af 30$: RSB 3; Done 
O1DE 8F 6B at 975 50$: PUSHR #*M<R1,R2,R3,R4,R6,R7,R8> 3; Save regs 
58 2 DO OCDC 2976 MOVL ; Setup LSB pointer 
5 10 OCDF 2977 BSBB XMT_COPY ; Build xmt segments 
OCE1 2978 33; Any trouble resetting HGL ? 
O1DE 8F BA OCE1 2979 POPR #*°M<R1,R2,R3,R4,R6,R7,R8> ; Save regs 
05 Bee? seer RSB 3; Done 


1008 57 


32 A 
FA36 


FFI9 
1C AS 0400 8F 


E3 50 


B2 OC A7 


Wooo 
ofNue~w 


ofMNoom 


mn—Oo ww ZSPN SSRS 


—GWo ofl 


OOOO OOCOOOOOOOOOCOOOOOCOOCOOOOOOO OOOO OCOO OOOO OOOCOOOOOCOOOOOOOOO 
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8 7 
module for NETDRIVER a dat 84 9 0}: 38 :6¢ AX/VM 
~SEP=1984 02:20:04 CNETAC 


- Process rcv'd DATA messag 


OOOO OCOCOCDCD OD CDCD 


wowowowoowoooownov0ono 


oO 
oO 
NOUS WN OOONAOUEW 


004 


eer wie pm etoile lelolololololololol~) 


-ENABL LSB 
ASSUME IRP$L_IOQFL EQ 0 ; 


S Macro V04-00 
P.SRCINETDRVNSP.MAR; 1 


IRP queue Linkage is offset 0 


: Copy failed. The CXB has been deallocated. 


6ECB  LSB$B_X_CXBCNT( 


R8) 
CMPL R7,LSB$C_X_PND(RB) 
BNEQ 1008 


CLRW IRP$W_BCNT(R7) 
BSBw XMT_REQ_DONE 


BRwW NETSQAST ; 
BISW — AXWBSM_FLG_WDAT,XWBSW_FLG(RS) 


RO, 3008 


: Enter sequence number. 


ADDW3 «#1, LSB$W_LUX(R8),R1 
BICW #*x<F000S, 

MOVW R1,CXBSW_X _NSPSEQ(R6) 
MOVW = «=R1, LSBSW7LOX (RB) 


: Attach CXB and request permission to 


MOVE #CXBSM_CD_ACK,CXB$B_CODE(R6) 
MOVAB ~CXBSL LIAK+L SBSL_X_CXB(RB) .RO 


MOVL § CXBSL_LINK(R1),RO 
BNEQ 10% 
CLRL = CXBSL LINK (RG) 
MOVL R6,CXBSL_LINK(R1) 
INCB — LSB$B_X_CXBACT (RB) 


TSTW IRP$SL_10ST1+2(R7) 


BNEQ 7 
BSBW  XMT~REQ_DONE_OK 
ROVL — L SBSL_X_PND(RB) .R7 
BEQL 0$ 

BLBS 


R11,30$ 
BBC #31. IRPSL_PID(R7) 4008 


Account for lost CXxB 

IRP still there ? 

If NEQ, no 

Zero eventual transfer size 
Move to completion queue 
with status in RO 

Done 


Startup kernel mode ast 
Flag need to get try again 
: ube in RO . 


; Return with 


If LBC, then error 


Get new ‘last used seq #' 
Trim to 12 bits 

inter it into message 
Store new LUX 


transmit it. 


Say “‘not yet ACK‘ed”’ 
Prepare for scan 
Save last pointer value 


st 
Zero this CXB's Link 
Link it into end of chain 
Account for it 


Any data left ? 
If NEQ, yes 
Move request for completion 


Get next IRP 

f EQL, none left 

If LBS, okay to goto IPL 2 
If BC not ALTSTART, must 


Page (2 


Je 
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NE TORVNSP = DECnet NSP module for NETDRIVER =SEP=1984 01:34:22 VAX/VMS Macro V04-00 Page 
v04-000 aceene DATA = Process rcv'd DATA messag ae 3:35:64 NETACP.SRCINETDRVNSP.MAR; 1 . (8%) 
ori 9 ; Get a free CXB. Expand CXB list if needed and if possible. 
D44 304 : 
56 0118 Be OF D44 28 REMQUE FLYOPR_ FREE CHBKRD? oe 3; Get next CXB | 
é 1C 0049 3044 BvC Os ; If VC, got one | 
6 p D4B 45 CLRL R 3; Init pointer 
OF ~ 1 0D4D 6 CMPB Ritter bts 7 : Can we allocate another CXB ? | 
OE A >? Be $B_X_CXBQU0(R8) : 
Al 1€ D rk BGEQU ; If GEQ, no 
51 42 AS = 3C (0D54 = 304 MOVZWL XWBSW_REMSIZ(R5) ,R1 ; Get remote size | 
038 050 tz trim upon ENT_RUN if needed 
51 SBA1 9E 0 2] MOVAB NSPS$C_HSZ_DATA - 3 Add in overhead 
p5¢ ¢ +TR3$C_HSZ-DATA = : | 
DSC 5 +CXB$C-OVERHEAD(R1),R1 : 
eoueny?'t 16 ODS 54 JSB 6 EXE SRLONONPAGED : Allocate the buffer 
9450 €E9 0D6 055 BLBC RO,200$ ; If LBC then allocation failure 
56 52 00 006 B29 MOVL P ; Setup CXB pointer 
OA A6§ «€61B) «690 «(0068 «305 MOVB #DYNSC_CXB,CXB$B_TYPE(R6) 3; Setup block type 
08 A651 Op6¢ 058 MOV CxBSW_ SIZE (RB) : Setup the size 
FAB 96 0070 3059 INCB LSB$B_X_CXBCNT(RB) t Account for CXB 
0D7 060 50S: 3 
0D7 061 ; 
0D7 O66 3 Enter message type code. Process ‘bom’ and ‘eom' flags. 
Opys 306% ; 
007 065 ASSUME NSPSC_MSG_DATA EQ 0 : ‘Data’ message type code for 
007 066 ASSUME NSP$V“DATA_BOM £Q LSB$V_BOM 
+4 444 ASSUME NSPS$V_DATA_EOM EQ LSBSV_EOM 
28 AS «OOF BF) BB C«#D7 069 BICB3 #*C<LSBSM_BOM>,LSBSB_STS(R8),- ; Enter message type code 
4E Ab 0078 3070 CXB$B_X_NSPTYP(R6) : 
28 AS 20 «BA OD7A 3071 BICB #LSBSA_BOM,LSB$B_STS(R8) ; Preset next type code 
52. 42 AS 3C oo7e 076 MOVZWL XWBSW_REMSIZ(R5) Re : Get segment size 
3A A7 52 Bi 008 07 CMPW Re IRPS$L_IOST142(R ) : More data left after this ? 
12 «1F OD86 074 BLSSU 708 : If LSSU, more data left 
52 3A A7 3C OD8 075 MOVZWL IRPSL_IOST142(R7) ,R2 ; Else, take it all 
09 20 A? 08 €0 OD8C B76 BBS #10$V MULTIPLE, IRPSW FUNC (R7) 70$ 3 If BS, not ‘end of -i¢ 
4E AG 40 8F 88 0091 307 BISB § #NSPSM_DATA_EOM,CXBS$B_X_NSPTYP{R6) ; Set ‘end of message flag’ 
28 AB «20 «88 «(D9 078 BISB #LSBS$M~BOM,CSBSB_STS(R8Y : Preset next type code 
QD9A 79 70$: 3 
OD9A 3080 3 
464 Ose 3 Update user VA descriptor in IRP, copy data into CXB 
D9A : : 
04 A6 57 AB YE QDIA 6 4 MOVAB CXBS$T_X_DATA(R6) ,4(R6) ; Setup destination pointer 
51 3c a7? DO OD9F 3085 MOVL IRPS$L~IOST2(R7),R1 : Get address of user data 
66 51 DO ODA3 $ MOVL R1, (R68) ; Save user VA 
oc A6 5 BO QDA6 MOVW R2,CXBSW_LENGTH(R6) : Save # user bytes in CXB | 
C A? 5 C8 DAA 8 ADDL R Bhs ee tee ; Update address 
SAA? 5 A DA 89 SUBW R2, IRP$L_10ST1#2(R7) ; Consume bytes 
FFGA CF 69F =6ODB 90 PUSHAB XMf_COPYT ; Setup return address | 
DB6 91 3; fall thru to COPY_DATA 
DB6 3092 -DSABL LSB 


] 
NETDRVNSP = DECnet NSP module for NETDRIVER 16=SEP=1984 01:34:22 VAX/VMS Macro V04-00 Pa 7 
teeth ACTERCY DATA - Process rcv'd DATA messag eto 93:35:64 NETACP.SRCJNETDRVNSP.MAR; 1 - $5) 
DB6 94 | 
DB6 3095 COPY_DATA: | 
36 OC A7 1F E0 4+ 38 BBS #31, 1RPSL_PID(R7) ,70$ 3; If BS, then ‘ALTSTART' | 
DBB 309 : | 
DBB 38 3 Probe the user buffer. The probing code relies on the fact that 
DBB 3100 : the first and last pages in the probe range are simultaneously 
4 ! 1 : probed -- hence we can probe two pages at a time. | 
dDBB SCS | g : Enter data into message. Since we o be at IPL 2, it is possible 
OdBB 3104 : that an NETSC_IPL event could cause the Link to break and the 
DBB 3105 s IRP's to be cleaned ye. Therefore, the IRP cannot be referenced | 
OBB 106 : once we go below NETS$C_IPL. 
pap 3108 : | 
54 OB A? 02 0 F QDBB 3109 Extzv #0,4 » IRP$B_RMOD(R7) ,R4 ; Get request access mode 
53 FEOO Br Bb dCi 3110 yay Arty 4% ; Set addition constant 
50 3651 2 Ci Opcé6 3111 ADDL R2,R1,R0 i: Cale end of buffer 
51 OFF 8F AA ODCA Wi BICW #VASM_BYTE,R1 ; Must go to begining of page 
ODCF 311 ; (since two pages worth of data 
ODCF 3114 ; could otherwise span 3 frames) 
= 6 6hSSNll( CCST SUBL R1,R0 : Cale # of bytes to probe 
Ood¢ 116 SETIPL #IPL$_ASTDEL : Allow paging 
08 2A A7 01 E1 ODDS i 30$: BBC #IRPSV_FUNC, IRP$W_STS(R7) ,50$ : If BC, 1O$_WRITELBLK 
ODDA 311 3; CIRPSW_STS is remains valid 
499 : 9 3 even Tf IRP has been sent to 
61 50 54 OD ODDA 1 ¢ PROBEW R4,RO,(R1) : Can user VA be written ? 
08 12 Oop 1 BNEQ 60$ : If NEQ, yes 
er 4: : : BRB 200$ 3; Report access violation 
61 50 54 o¢ DE2 3126 50$:  PROBER R4,RO,(R1) : Can user VA be read ? 
é 1 DEG 127 BEQL 2008 ; If EQL no, report error 
ge DE 128 60$ SUBL R3,R1 3; Update address of buffer 
50 604 —E ODEB 3129 MOVAW (RO)CR32,RO : Shrink total by 2 pages 
ES 14 44 : BGT 30$ : If GTR, more to probe 
0486 0086 52. 28 DF é 70$:  MOVC3 R2,a(R6),a4(R6) : Enter data 
DF7 3134 100$:  SETIPL #NETSC_IPL : Go back to synchronizing IPL | 
55 FFSC C 9E ODFA 3135 MOVAB <=XWBST_DT(R8) RS ; Recover XWB address 
141¢ a5 (0 1 ODFF 31 6 BBC #XWBSV~FLG_SDT, XwBSW_FLG(R5),210$ ; If BC, not in RUN state 
50 (01 E04 1 MOVB = #1, RO ; Say “success” 
0 £07 31 3 RSB ; Done 
MN 
@ oF 143 200$ | 
E 14 na 
E 144 : Access violations are fatal. We have no choice but to break the | 
E 145 : Link since a portion of the user's buffer may have already been 
: 128 : transmitted. 
E 14 : 
| E 125 SETIPL #NETSC_IPL ; Go back to synchronizing IPL | 
55 FFSC C8 9E E 150 MOVAB ~XWBST_DT(RB) RS ; Recover XWB address 
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ACTSRCV_DATA = Process rcv'd DATA messag 5-SEP-19 NETACP.SRCJNETDRVNSP.MAR; 1 
1C AS 1 AB 619 1 BISW Rs ate FLG * eiacieacntanete FLG(R5) ; Cause Link to break 
§ Bp 3 1 PUSHL 3 grery or error status 
af ! RB 3; Continu 
D 1 155 6108: PUSHL #SS$_ABORT ; Store error state 
50 D 1A 3) § 20$: MOVL R6,R0 ; Prepare for deallocation 
1D 31 CLRL R ; Clear former CXxB gerater 
sig E1F 1 8 BSBW i PSEALLOCATE ; Deallocate the block 
8ED E g 1 POPL R ; Pickup error status 
0 : 2 199 RSB 3; Done 


-_ 


F 7 
NE TDRVNSP = DECnet NSP module for NETORIVER 16-SEP-1984 01:34: AX/VMS Macro V04-00 Page 69 
Vba-000 CLONE_RCV_CXB = Clone a copy of a rcv'd eat et 3:36:64 ENETACP. SREINE YDRVNSP.MARS 1 (88) 
: 197 -SBTTL CLONE_RCV_CXB = Clone a copy of a rev'd CxXB 
E 165 : 
E 198 3; INPUTS: R7 Scratch 
E26 3167 ; R Current CXB address 
E26 198 : ® Bytes left in message 
E26 18 : R Current message pointer 
; ? 109 3 RO Scratch 
E26 16 3; OUTPUTS: R7 Old CXB address 
E26 31735; R6 New CXB address if successful 
E 2 174 ; otherwise unchange 
E 175 ; R1 Updated message pointer if successful 
E26 176 ; pores e otherwise 
E26 3177; RO ow bit set if successful 
: ? 178 : Low bit cleared otherwise 
; : ? : ALL other registers are preserved 
£26 3182 ;:- 
£26 31 : CLONE _RCV_CXB_1: ; 
51 66 00 OE26 3184 MOVL (R6),R1 ; Get pointer to data 
—RCV_CXB: 3 
E29 3185 CLONE_RCV_CXB 
OF59 3189 
OE29 3188 ; If we cannot take the buffer, then we can only write in the 
OE29 3189 : CXB$x_R_xxx fields since that is the ‘‘datalink’’ area and the rest 
3 ; 139 3 of the CxB is off Limits to us. 
0E29 135 3 NOTE: If this is a local-local Link then this is the same CXB as 
0OE29 319 3 on some LSB CXB List and modifying anything before CXBST_DLL 
E29 3194 3 or after CXBSC_HEADER could be dangeous. Remember that for 
E29 3195 ; lLocal-local Links the flag is set in the CXB which prohibits 
E29 138 3 its being consumed here. 
OE 3 3198 : 
013C 8F BB E 9 199 PUSHR #*M<R2,R3,R4,R5,R8> : Save regs 
57 6 08 E2D if MOVL R6,R7 3; Copy CXB address 
7 1 4 E g § MOVL R1,(R7) ; Enter pointer to data 
§ 52 C O€ 0 MOVZWL Re eRe ; Clear out high order bits 
C E 3 ADDL #CXBSC_TRAILER,R2 ; Add in required trailer 
1 $ C E 5 ADOL Rl 3; Calculate end address 
1 C E5C § SUBL R7,R1 ; Get total used buffer size 
8 i) ESF MOVL 3; Save a copy 
00000000' GF 16 Ede 08 JSB GE XE SALONONPAGED : Allocate buffer 
18 E E4 BLBC RO,10$ : If LBC then error 
5 8 E48 19 MOVL R2,R6 ; Setup new CXB address 
66 6 E4 1 MOVCS RB,(R7), (RO) 3; Copy relavent data 
08 E \ MOV R CRBS SIZE (RG) 3; Reset size -- corrupted by MOVC 
51 $ C E 1 SUBL3 = R7, (R7) R ; Get offset to data 
1 56 CO OSA 3214 ADDL = RG. RI : Make it a pointer in new CXB | 
66 1 € 15 MOVL R1, (R6) 3; Store it 
38 A 4 06 16 CLRB CxBSB_R_FLG(RO) : Clear all flags 
50 0 dO sez ; MOVL 1,R ; Success | 
013C 8F BA £66 8 10$: POPR #*M<R2,R3,R4,R5,RB> : 


Restore regs | 


sr 


DECne 
CLONE. 


Rev 


NSP module for NETDRIVER® 
(XB = Clone a copy of a rev'd 


2 


"SSEp=198e 82:36:68 


3; Done 


AX/VM 
NETAC 


SREINET 


04-00 
DRVNSP.MAR; 1 


roe, 
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e for NETORIVER 16-SEP-1984 01:34:22 VAX/VMS M + 00 e 71 
a : SE} 98¢ 83:36:64 ai age 


us YoRyesr = DECnet NSP modul 
-000 CLONE _RCV_CXB = Clone a copy of a rev'd - NETACP.SR RE} NE TDORVNSP.MAR; 1 (38) | 
$4 4 
E 5 Pe Teenare R_IRPCXB:: 
50 2C a3 20 E68 § 10$: mMOvC {RPSL SVAPTE(R3),RO ; Get attached CXB, if any 
0D 1 ot BEQL 00$ 3; If EQL, done 
2c A3 19 a“ ! E71 8 MOVL CXBSL ob Ee (80) IRPS$L_SVAPTE(R3) ; Remove CXB tren list 
OS A 443 DECB IRP$B~CXBCNT (RS) ; Account for its loss 
F184" 30 OE7 0 BSBW NETSDEALLOCATE 3 nen the block 
ED 11 O€E7C 1 BRB 3 Loo 
05 OE7E ¢ 100$: 8 3 Done 
E7F 
E7F 4 
eer 5 NETSDRAIN_R_LSBCXB: 
50 20 A&B 0 E7F $ 10$: MOVL LSBSL_R_CXB(R8) ,RO ; Get attached CXB, if any 
0D 13 O€ ; 8 BEQL 100$ ~ 3 if . done 
20 AB 10 AO 00 OE 39 MOVL CXBSL_LINK(RO) ,LSBSL_R_CXB(R8) ; Remove CXB from List 
28 AB) 97) =C(OEBA 40 DECB LSB$B-R_CXBCNT (RB) 3; Account for its loss 
F170" 30 O€8D 41 BSBW NETSDEACLOCATE 3: Deallocate the block 
ED 171 0E90 ¢g BRB 10$ 3; Loop 
05 6344 43 100$: RSB ; Done 
0E9 44 


——$———— _— — 
| 
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33 ¢$ a -SBTTL NSPSSOLICIT - Solicit permission to transmit 
€9 48 : 
£9 t ; It is asssumed that XWBSV_STS_SOL has just be set prior to the call to this 
e9 9 3 routine. 
£3 | 
€9 § : INPUTS: R5 XWB address 
3 : 5 R4-RO Scratch 
33 § ; R5-RO Garbage 
3 38 : ALL other registers are preserved. 
St Be: 
3 $6 NSPSSOLICIT:: : Solicit xmit permission from Trasnport 
£9 64 ; 
+34 65 3 Solicit permission from Transport to transmit a mopeege. Note that 
+33 ; the request could suspend us indefinitely. The call made with: 
09 £8 : 
0E9 9 : R5 Fork block address. 
0E9 0 s The FPC,FR3,FR4 fields are all scratch and must not 
0E9 71 3 be modified by while Transport owns the fork block. 
BE9 7 : R4 Destination node address 
€9 7 : R3 I.d. of LPD to xmit over 
0E9 74 ; Zero % Nrceamons is to choose the LPD 
0E9 75 ; R2 RCB address 
+33 4 3 R1,RO Scratch 
0E9 7 : (SP) Return address of caller 
+34 7 : 4(SP) Return address of caller's caller 
Ofo8 358) : 
2g HY AS 0 OE9 Be 20$: MOVL XWBSL =¥CB CRS? R2 3 Get ~ address 
5 8A5 3C OED MOVZWL XWB$W~PATH(R5S ,R3 : Get path i.d. for xmt 
55 14A5 9€ OE9B8 4 MOVAB XWBSQ- FORK (RS) (RS : switch to fork block context 
AE‘AF QF OE9SF 5 PUSHAB B*QUICK_SOL Setup return address 
54 FFEC'CS GA HK: $ MOVZBL u*XUBSB ADJ_INX=XWBSQ_FORK(RS), Ri: Setup adjacency index 
EA i BEQL 308 ; if EQl none 
EA7 3 ¥ BRwW QRLSSOLICIT Call quick routing Layer 
54 26 AS Ht EA7 SOs: MOVZ2WL XWBSW_REMNOD-XWBSQ_FORK(RS) ,R4 : Setup remote node address 
F1S2° 31 eA 3 BRW TRSSOCICIT ; Call Transport 
EAE 92 QUICK_SOL: 
‘2 ce 
re 3 : Return (or called) from Transport with: 
EAE 329 : R7.R6. ‘Sera | 
s 2 3 a fork block address 
° cr 
EAE 0 3 R Not available -- must be saved/restored 
EAE 1 ; R RCB address 
EAE 2 3 R1 Scratch 


<Zz 


; Build the route header 


i | 
TORVNSP = DECnet NSP module for NETORIVER 16-SEP-1984 01:34: AX/VMS Macro V04-00 Page 73 
WHe000 NSPSSO 4) oe Solicit hie ry oll to tr et 8) 36:64 NETACP.SRCIJNETDRVNSP.MAR; 1 . (59) 
3 RO Low bit set if permission granted 
3 Low bit clear if permission denied 
OFO8 8F BB PUSHR 9 #*M<R3,R8,R9,R10,R11> ; Save regs 
58 4 1 CLRL_ R11 ; Say “can't go to IPL 2" 
55 ECA E 1 MOVAB =XWBSQ_FORK(RS),R5 3; Switch to XWB context 
OE AS 8° LY, 1 CW #XWBSM_STS_ SOL ,XWBSW_STS(R5) 3; Mark fork block idle 
54 AS 1 0 A 1 FFS #0 #16 x LG(R5),R4 3 Find something to do 
9 1263°CF 1 MOVAB wW*NET$I0_STATUS,R9 : Default 1/0 end-action routine 
1 1 6SBB ae 44 H 3 ry pases to build rg 
SE 5 E 1 BLBC RO,2 ; If LBC then no msg was built 
1 BUMP =—s- L NDC +NDCSL_PSN(RS) ; Update ‘'packets sent’ 
! UPDATE L,R1,NDC+NDCSL_BSN(RS) ; Update ‘user bytes sent"’ 
52. 0000'C5 MOVL XWBSL_PTR_RTHD(RS),R2 Get route-header pointer 
51 4€ a6 MOVAB CXB$B-X_NSPTYP(R6),R1 Setup pointer to msg NSP header 
51 FC A SUBL ad(nes Ri 
57 53 51 SUBL3 = R1,R3,R7 Setup total message size 
23 PUSHR #*M<RO,R1,R5> Save regs 
61 62 FC Ag MOVC3 =4(R2).(R2),(R1) Move in the route-header 
2 POPR #*M<RO.R1,R5> Save regs 


MMMM MMMMMMMMMMMMMmMmMmmMmmmmrnirnirnicrnirnicricrnicr om 


CDOOCOCOCCOCOCOCOOOOCOCOCOCOCOCOOOO0000 FF HHH HMMMMMMMMOOMOOOWODWWIO >> > rrr 


MOVL R9,R2 


120$ 
MOVAB W*NETSIO STATUS,R2 
BISB #TR3SM_RTFLG_ROR, (R1) 


120$: POPR #*M<R3,R8,R9,R10,R11> 


Setup ‘end-action’ routine 
If NEQ then okay 


08 
52 1263°CF Use standard status routine 
61 08 


NOME UR @§ 9 OD NAME WIN 0 OD NA NEW O ODA W 


AAA A AAAI AAAI POPIPONPINININININY 


S S83 SUB aces 


OOOCCCCOCOOCOCOCOOOCOOCOCOOOOOOOoooO 


SF ee 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Fe Ge Ge Se 


Restore status and saved regs 


On return, the CXB and registers are setup as follows: 


TM MMMMMMMMMMMMMMMMMMM > > VIO OWA FLOM WOWWWWWWAIO OUR 0 EB roromMmmmimnnmn 
VISITE B= Be Be 


AAA A.AI A. A.A AAAI AAA. AIA AAAI AAAI AAAI 


8 
9 3 
0 3 
; ; 
4 ; 
5 F tere we ew ewe + 
§ :  06t~— standard i 11 bytes Long. CXBSL_FLINK and CXBSL_BLINK may 
: H VAS ' be used by the Transport layer. CXB 
8 ; | buffer header i must be correct. CXBSB_TYPE must be DYNSC_CXB. 
0 . { Starts with CXBSB_CODE (byte 11) and continues 
F 1 3 ' ECL : to CXBSC_LENGTH. This area is read-only to 
F § : : pure area : Transport and below. It cannot even be 
: Z 3 ‘ H saved/restored. 
F 5 : + Datalink | Starts at CXBSC_LENGTH and is at least 
F § : : Layer : CXBSC_DLL bytes long. Used by the datalink for 
: : 3 ‘ impure area H protocol header or state information. 
F 3 ' H 


———E7E 
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yO4e000 NSPSSOL CIT - Solicit permission to tr ety 7 3:38:64 ENETACP.. SREINE YDRVNSP.MAR; 4 ° (59) 
FOE $9 : . body of - Must be gquadword aligned and starting no sooner 
3 . message . than sl + * = a 
FOE : , than CXBSC_LENGTH + CXBSC_DLL (= CXBSC_HEADER) 
F e : -omem man ocaoe wa me + 
FOE $4 . os Datalink {| Used by the datalink Layer for protocol (e.g., 
FOE 92 $ ' ayer ' checksum) or state information. Must be at 
; ; 96 3 H impure area H least CXBSC_TRAILER in Length. 
FOE 8369 ; 
FOE 5 3 R7 Size of message 
FOE 71 $ R CXB address 
FOE ie : R Garbage 
FOE 7 : RG 0 if “quick solicit’’ not requested 
OF OE 74 : Else, pornter to request block (xWB fork block) with 
FOE 75 3 FRKSL_FPC pointing to the ‘‘quick solicit’’ routine 
FOE 4 : R IRP address == unmodified from call 
FOE 7 : R2 Address of End-action routine to call on I/0 competion 
ee 4 : R1 Ptr to Ist byte in standard Phase III route-header 
FOE 7 3 Low bit set - if message is to be xmitted 
OF OE 0 3 Low bit clear - if no message to xmit. In this case 
gree 1 3 R7-R4,R2,R1 contain garbage. 
OF OE ¢ : 
i: ne 
54 1C AS OA 90 EA OFOE 5 FFS #0, #XWBSV_FLG_CLO+1,XWBSW_FLG(R5),R4 ; Get next work bit 
14 0000°CF 54 £1 OFI4 6 BBC R4,W°NETSGL_QORKBITS, 3008 : If BC, no work needed 
22 0 02 2 OFIA BBSS #XWBSV_STS SOL, XWBSW_STS(R5),310$: If BS. fork block in-use 
20 AS_ FFB CF — OFIF 8 MOVAB W*QUICK SOL,XWBSL_FPC(RS) ; Setup ‘quick solicit’ return 
54 OUIG AS OQ OF 5 9 MOVAB XWBS$Q_FORK(R5) .R4 : Say ‘quick solicit requested’ 
0 F2e9 0 RSB 3; Return to Transport 
ane 
OFO8 8F BA OF2A 38 gps: POPR #*M<R3,R8,R9,R10,R11> ; Restore status and saved regs 
OE 0F AS O38 €1 OF Be 00$: BBC #XWBSV_STS_DIS,XWB$W_STS(RS),310$:; If BC, disconnect not pending 
50 D OF 38 PUSHL RO 3; Save RO 
FOC8* 30 OF 9 e38W NETSCHK_X_IDLE ; Ok to restart disc. sequence? 
03 50 9 OF38 98 BLBC RO, 305$ 3; If LBC no, XWB is not idle 
FOC2" 30 OF 99 BSBW NE TSFORK 3; Fork to resume disconnect 
OF E %400 ; (return with LBS in RO) 
50 8—ED0 rie rt 305$:  POPL RO 3; Restore R 
54 4 orl 408 310$: CLRL R4 ; Say “‘quick solicit not wanted’ 
5 ot rt RSB ; Return to Transport 


=—~2z 
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-SBTTL BLD_DISPATCH - Dispatch to build message 


C 
Dd 


ah 
BLD 


> 


Dispatch with: 


R9 Default end-action routine (NETSIO_STATUS) address 
ne Scratch 

& XWB address 

R4 XWBSW_FLG work bit 

R3-R1 = Scratc ‘ 
RO LBS if permission granted to transmit 
LBC if permission denied 


On return: 
R9 Address of NETSIO_STATUS or some other end-action routine 
R Address of CXB containing message to be transmitted 
R Address of first byte beyond the message text 
R1 User bytes entered into message 
RO 1 if message is to be xmitted, 


otherwise 
R8,R7,R4,R2 are clobbered, all others are unmodified. 


Sete Ge Ge Ge Ge Ge Ge Ge Se Se Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge 
+ 


BLD_DISPATCH: 
BLBC RO,DENIED ; If LBC then we were denied 
3 permission to transmit 
; We have been given permission to transmit. 
SDISPATCH R4,- ; Case on work bit 
<XWBSV_FLG_CLO, NETSRET_SLOT>,- 
<XWBSV_FLG_BREAK, S8REAK>,=- 
<XWBSV_FLG_SCD _CD>,- 
<XWBSVIFLG-SIACK, BLDILIACK>,- 
<XWBSV_FLG_SDACK, BLD_DTACK>,- 
<XWBSV"FLG "SLI, BLD“LI>.- 
; <XWBSV_FLG_SDT, BLD_DAT>,- 
BRB NONE 3; Continue 


DENIED: ; 
; Permission to Xmit has been denied 


$DISPATCH R4,- : Case on work bit 
<XWBSV_FLG_CLO, NETSRET_SLOT>,- 
; For all other bits, come here 


Pete en eee ee eee ote oes P ot oF oF oF oF of af of ot ot ot ot ot ot ot oe ae oe oe oe oe oe ee ee ee ee ee ee eee 
NNN 2 Se Se BNINIINNNNNNNINNNNSIN ES BEB R RRR RRR ERPS 
PREP E RRP PRR RPE PEPE PPE EPP P PPP P PP PPP PP PPP PPP PPP PPP ES 
AAACN ES BB BB BEBE BUNNY 2 2 DOO 


ARS OD NA NEM $9 OD NAME WIN (9 OO NAME WIN $9 OD NOU EWN) "OO VOONOAULS WN O0Oan 


: If this is the first transmission of a CI then assume the node 


BREAK: 


i Di i Dis Bie Bi i Ri Bi Dis Des Bs Ds Ds es ns Bs Bs Bs Bs es Bes es es es es Bes es es Bs | we 
bpp bys $$ + 4 + to ee ND ORT Ue 
NWW Tn TH SOS SP ONIOTC WN 
WAAAWIAWAAAIAAIAAI AAAI. N AANA NANA A AAAI 


SOOSOSDSOSOODODOOCOSOSOOODOOOOSOOOOOSOOOO =3 
PS a oe oe or oe oe oe oe ot oe ot oe ot ot oe ot Oe SS 


OOO 0000009 09 0009 09 09 0909 SINISE NINA OAOAAAO 
FW | CO OONAUE WIN O OODNOU EWN OQ ODNOAUE 


PUSHR 
BICW 
9E 
H POPR 
A NONE:  CLRQ 
AG 
AG RSB 
AS 


BOVZBL we Tey DSCLN 
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v04-000 BLD_DISPATCH Dispatch to build a, “SEP- 0:04 CNETACP.SR REIN NE TDRVNSP.MAR; 1 (60) 
; is unreachable 

1E AS 91 1 {upp #XWBSC_STA_CIS,XWBS$B_STA(RS) : Is a cI b being sent ? 
52 AS i been XWBSW_PROGRESS(R5) ; is sat © the lst transmission ? 
no 
44 AS 5 8 MOVW #NETSC_DR NOPATH XWBSW_R LREASON(RS) ; Set up disconnect reason 
S4 A 1 860 MOVW #1,XWBSQ_RETRAN(R5) : Reduce ms retrensaissions 
52 AS 1 8 MOVW #1,XWBSW~ PROGRESS (RS) Cause link to break 
0408 50$: BSBW UPD_PROGR + Upda te the arearess counter 
04 oF AS 6? E0 BBS #xwBSv_STS TID xyesu STS(RS), 1408; if ve then 4 ® z owned 
AS B0 MOVW #5, XWBSW_TIMER(RS again in 5 seconds 
WtA WET 140$: BBC #XUBSV_ FCG TOREAR  XWBSW_ FLG(RS), NONE ; "f BS, Link is to be broken 


Generate an event to break the Link 


#*M<R1,R6,R7,R8,R9> 
#XWBSM_FLG ae pan, FLG(RS) 


Save regs 


Prevent infinite looping 
Setup event code 
NE TSE Process event 
#*M<R1,R6,R7,R8,RI> Restore regs 
RO Say ‘nothing to send" and | 
“no user bytes in msg’’ 
Done 


} 
— | 


N 7 
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VOu-000 BLD_C - Build Connect/Disconnect mess ety §3:30;64 ENETACP. SREINETDRVNSP.MAR: 1 ’ (61) 

~SBTTL BLD_CD = Build Connect/Disconnect eoeeere 

~SBTTL BLD_CI - Build a CI msg from XWB contents 

~SBTTL BLD_CA - Build a CA msg from XWB contents 

~SBTTL BLO_CC . Build a CC msg from XWB contents 

-SBTTL BLD_DI = Build a DI msg from XWB contents 

-SBTTL BLD_OC - Build A DC msg from XWB contents 


+ 
oa 


The proteer rete control message is contructed from the information 
in the XwWB. 


INPUTS: R9 Default end-action routine (NETSIO_STATUS) address 
R8-R6 Scratch 
5 XWB address 
R4 XWBSM_FLG work bit 
R3-RO Scratch 
OUTPUTS: R10 Preserved 
Rg Address of NET$IO_STATUS or NETSCSS_IOSTAT 
Zero, implies NETSIO_STATUS and also requests that 
the ‘‘return to send bit’ be set in the route-header 
Address of CXB containing the message 
R5 Preserved 
R3 Pointer to first byte beyond the message 
R1 Number of user bytes entered into message 


LBS if a message was constucted 
LBC otherwise 


R8,R7,R4,R2 are garbage 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


SOOOSCOCSCSOOSOSSOSOSCOOOOSOSOSOSOOSOOSOSOSOSOSOOOSOSOSOOOOOOOOOOOOOOOOSOOSOOOOOoOO V5 
io Di De Di Di Dies Di es De Bes De Bes De Ds i ns ns ee i ee De es Be Re De Be Di Be Be Bs De es De 
OOOO OOOOOOWDWDODODOMIWOOOOP YP PPP HPYPIErYrrr Err rr rrr rrrrrrrrrrrrrrrr>rr>,r 
GUT BS BBB EE BPW NWINIINIAINIIDIPINIPINPINININININ 9 9 OO MQOOOOOOCOCOCOCOCOONOONOD -—--3 
MRO OONA NEW @ OOD NAME WIN OOD NAME WN OO OONAUE WO: OONAULS WIN —OOONG —oO 


PRETEEN IMINIMPININIOO 9 SVS 
Fee eee eee eens shes ab db ah ab ab ab dh ah db db dh db db Ab dh dh Ab db ab ah ah bb ah ab he det ee tee 


BLD_CD: ; Build Connect or Disconnect message 
51 FO 8F QA MOVZBL #NSPS$C_HSZ_CD,R1 3; Setup maximum buffer size needed 
0268 30 BSBW GET_XMT_BUF ; Get buffer 
; = no return on error 
0100 8F BICW #XWBSM_FLG_SCD,- ; Clear the bit which brought us here 
1C AS BSW-FLGTRS) ; 

SDISPATCH XWBSB_STA(R5),TYPE=B,-; Dispatch according to state 
<XWBSC_STA_CIS, BLD_CI>,- ; Build Connect Initate msg 
<XWBSC_STA_CIR, BLD_CA>,- ; Buiid Connect Ack msg 
<XWBSC_STA_CCS, BLD_CC>,- ; Build Connect Confirm msg 
<XWBSC_STA_DIS, BLD_DI>,- ; Build Disconnect Initiate msg 

; <XWBSC_STA_DIR, BLD_DC>,- ; Build Disconnect Confirm msg 

50 56 4 MOVL R6,RO ; Else, setup for deallocation 
F035" BSBW = NET SDEALLOCATE : Deallocate the block 
50 D4 CLRL RO ; Indicate nothing to send 
05 10$: RSB 
-ENABL LSB 
BLD_CI: ; Build Cl from XwWB _ 
59 = 4 CLRL R9 ; Request ‘‘return to sender 


am 


B 8 
1 
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v04-000 BLD_DC = Build A DC msg from XWB conte ets 93:39; 4 (CNETACP.SRCINETDRVNSP.MAR; 1 ’ (61) 
83 68 8F 9 FDO 53 MOVB #NSPSC_MSG_CR,(R3)+ ; Enter msg type - CI ‘'retransmit'’ 
52 A5 8B FD4 327 TSTW XWBSW_PROGRESS(R5) i; Is this Phe first transmission ? 
04 1 FD? 3555 BNEQ $ 3; If NEQ then no 
FF AS 18 Q 424 228 MOVB #NSPSC_MSG_CI,-1(R3) ; Else setup for initial CI 
FDD 338 5$: ASSUME XWBSW_LOCLNK €Q 2+XWBSW_REMLNK 
FOD 355 ASSUME NSPSC_SRV_NFC EQ 
ares 299 ASSUME NSPSV_INF_VER EQ 
83 3C AS DO OFDD 266 MOVL XWBSW_REMLNK(R5),(R3)+ ; Enter dst,src Link addresses 
83 0201 8F BO OFE1 356 MOVW #NSPSC_SRV_REQ!- ; Enter required SERVICE bits and 
BFeS 564 - ; say "no flow control” 
FE6 3565 <NSPSC_INF_V40@8>,(R3)+ ; | and indicate Version 3.2 
83 40 A5 BO OFE6 266 MOVW XWB$W_COCSTZ(R5),(R3)+ ; Enter rcv segment size 
54 010C CS 00 OQOFEA 356 MOVL XWBSL_ICB(R5) ,R4 ; Get ICB 
28 AG = 9E OFEF 3568 MOVAB ICB$B-RPRNAM(R4) ,R1 ; Get dst process name address 
FOOA' 30 OFF3 3569 BSBW NETSMOV_UST ; Move string without the count field 
51 14 AG 43 OFF6 3570 MOVAB ICB$B_LPRNAM(R4),R1 ; Get src process name address __ 
rope" 30 OFFA 3571 SBW WG TSAOV_USTR ; Move string without the count field 
5 DD OFFD 256 PUSHL R ; Save current output ptr 
83 94 OFFF 357 CLRB (R3)+ ; Assume no data or access info 
51 3C AG 3 1001 3574 MOVAB ICBSB_ACCESS(R4),R1 ; Point to access info strings 
61 95 1005 3575 TSTB (R1) ; Are access strings null ? 
07 13 1007 3576 BEQL 10$ :; If EQL then null 
00 BE 01 90 1009 3577 MOVB #1,a(SP ; Flag ‘access info present’ 
EFFO"' 30 100D 3578 BSBW NET $MoV USTR : Move string without the count field 
9—E O02 88 iy 579 10$: BISB #2,a(SP)+ ; Flag ‘data present’ - it may be null 
101 $200 BUMP W,NDC+NDCS$W_CSN(R5) ; Update ‘‘connects sent 
3A 101 381 BRB 36$ ; Continue in common 
1950 388 BLD_CC: ; Build the Connect Confirm message 
02 €1 1020 3584 BBC #XWBSV_PRO_PH2,- : If BC, not Phase I1 
05 5A AS Ise 585 $B" PROTRS) ,15$ : 
59 igen 9E 10 586 MOVAB W°NETSCCS_IOSTAT RG ; Setup 1/0 status return address 
83 28 90 108A 387 15$:  MOVB #NSPS$C_MSG~CC,(R35+ : Setup message type 
102D 3589 ASSUME XWBSW_LOCLNK EQ 2+XWBS$W_REMLNK 
192 590 ASSUME NSPSC“SRV_NFC EQ 0 
+ . 234 ASSUME NSPSV_INF_VER EQ 0 
83 3C AS 00 19D 338 MOVL XWBSW_REMLNK(R5),(R3)+ ; Enter dst.src Link addresses 
83 0201 8F BO 1031 3594 MOVW #NSPSC_SRV_REQ!- ; Enter required SERVICE bits and 
1036 3595 - 3; say ‘‘no flow control 
18 6 298 <NSPSC_INF_V40@8>,(R3)+ ; | and indicate Version 3.2 
83 40A5 80 1036 9 MOVW xWBSW_COCSTZ(R5),(R3)+ |; Enter rcv segment size 
1E 1 eA $05 BRB 30$ : Move user data 
19st 600 BLD_CA: ; Build CA from XWB contents 
3.) 6 0 1 He 601 MOVB #NSPSC_MSG_CA,\R3)+ 3; Enter ms typ 
83 3 AS BO 105F 3608 MOVW = XWBSW_REMLAK(R5),(R3)+ |; Enter dst link address 
06 1 1043 360 BRB 25$ ; Take ‘'no data’’ exit 
1045 3604 
1 $2 605 BLD_DC ; Build DC msg 
83 48 8F % 104 6 $ MOVB #NSPSC_MSG_DC,(R3)+ ; Enter msg type 
4 10 1049 36 BSBB BLD_DX_ COMMON ; Setup msg header 
1 D4 1048 36 3 25$: CLRL R1 ; No user data 
16 11 1040 5360 BRB 50$ ; Exit in common 
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v04-000 BLD_D - Build A DC msg from XWB conte 5-SEP-1984 02:20:04 (CNETACP.SRCINETDRVNSP.MAR; 1 (61) 
BLD_DI ; Build DI from XwB 


" MOVB = #NSPSC_MSG_DI,(R3)+ 
B BLD_DX~COMMON 


# 
BSBW RESET_TIMER 


3; Enter msg type 
; Setup msg header 
; Set timer i.d. (-1 => connect/discon) 
: Set the retransmission timer | 
3; == don't zero XWBSW_PROGRESS (it was 
; zeroed as this state was entered) 
5),R1 ; Get address of optional data 


30$: MOVAB XWBSB_DATA(RS) 
BSBW NETSMOV_CSTR ; Move data as a counted string 
MOVZBL XWBS$B_DATACRS),R1 ; Setup number of data bytes in message 
50$: BICW #XWBSA_FLG S60. ; Clear flag which got us here 
XWBSW_FLGTR5) : 
MOVL #1,R0 ; Indicate that msg was built 
; R1 has # of optional data bytes 
RSB ; Done 
-DSABL LSB 
BLD_DX_COMMON: ; Common disconnet msg building 


If the partner is Phase II (V3.1) convert it to V3.2 so that 
we get the benefit of timer support. This ensures that broken 
Phase II logical-links will always cleanup. 


108: 
Insert logical Link address and disconnect reason code 
ASSUME XWBSW_LOCLNK EQ 2+XWB$W_REMLNK 
MOVL XWBSW_REMLNK(R5),(R3)+ ; Enter dst,src Link addresses 
MOVW XWBSW_X REASON(R5),(R3) ; Enter disconnect reason 
CMPW (R3)+,#NETSC_DR_INVALID ; Valid reason code ? 
BLSSU 208 ; If LSSU, okay 
MOVW #NETSC_DR_ABORT,-2(R3) ; Else, jam in a default 
20$: SB ; Done 


WAWAWIA WANA AAAN AWN AA AANA AANA so 


tt ss bs ts > 2» > __» — > —) 2» 2» > _ 2s — 2» — 2 2 2 2) 2 2s ts 4 9 3 os 
SOOOCCOCOCOCOCOCOCCOCSOSOOCOOCO OOOO OOOOSOOOOOOOOOOOOOOOoo 
BOO D009 SIN NN NNN NNN AAA AAAAAAAA A AAA AAA MMIII & 
DD DDD DDD DDD DED DDD DD DPA PAPA AAA AA AAA AAA A AAO 
MO OONOAUE WN OOONAUE WN 0 OONOUSWN-OOONAULSWN—O —oO 


NOMOD NWIUAI III no eM OWN > > bP Vr 


DU BS BB BBE EEE WWII NGI WIWIWIIPPINPIPINIPINIYN Se es es ee ee ee eee 


BICB #XWBSM_PRO_PH2,XWB$B_PRO(RS) ; Enable timer support 


<z 


— 
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v04-000 BLD_LIACK = Build a INT/LS ACK message ets §3:30:64 ENETACE. SREINETDRVNSP.MARS 1 ’ (62) 
1087 3654 ~SBTTL BLD_LIACK - Build a INT/LS ACK message 
1087 3655 ~SBTTL BLD_DTACK - Build a DATA ACK message 
1087 36 § -SBTTL BLD_LI - Build INT/LS message 
1087 365 -SBTTL BLD_DAT - Build DATA message 
Ihr dese 
1087 3660 ; The apprope tase message is ote F If the message to be built is an ACK and 
1087 3661 ; XWBSW_FLG indicates that there is a message which may be sent on the sub- 
1087 206 ; Channel then the ACK is sent ‘piggy-backed’ within that moenees - otherwise, 
1 gf 665 ; an ACK message is built and sent. Messages sent on either subchannel will 
1087 3664; always ‘Biger-see and ACK to help reduce retransmissions by the remote 
nt 90? ; node in the lost message environment offered by Transport. 
1087 $6) : 
1087 3668 ; INPUTS: Rg Not used 
1087 3669 ; R8-R6 Scratch 
1087 3670 ; XWB_ address 
1087 3671 ; R4 XWBSM_FLG work bit 
1087 ore 3 R3-RO Scratch 
1087 3673 ; 
1087 3674 ; OUTPUTS: RG Address of CXB containing the message 
1087 3675 ; R Pointer to first byte beyond the message 
1087 ore : R1 Wumber of user bytes entered into message 
1087 3677 ; RO LGS if a message was constucted 
1087 3678 ; LBC otherwise 
1087 3679 ; f 
1087 3680 ; R8,R7,R4,R2 are garbage. ALl others are preserved. 
1087 3681 ; 
1087 tt .- 
1087 3683 BLD_LIACK: ; Build INT/LS ACK 
03 1C AS 04 fo 1087 3684 BBS #XWBSV_FLG SLI,XWBSW_FLG(R5),BLD_LI ; BoPx pece ACK if possible 
OODF 1 198 eH BRwW BLD_ACK_LT ; Build header 
108F 3687 BLD_LI: ; Build INT or LS message 
OODC 30 108F 3688 BSBW BLD_ACK_LI ; Build header 
4150 €9 1938 689 BLBC RO,50$ ; Failed if LBC 
3 57 B60 109 690 MOVW R7,(R3)+ ; Enter segment number ye 
17 6C AS O05 =«€E1 94 4 BBC #NSPSV_FLW_INT,XWBSB_X_FLW(R5),10$ ; If BC then ‘Link Service 
109D 369 : 
109D 3694 : Xmit an INTERRUPT message 
109 3696 
4E A6 0 90 109D £97 MOVB #NSPSC_MSG_ INT, CXBSB_X_NSPTYP(R6); Enter mongoge type code 
50 10A p 10A1 3698 MOVL LSBSL~X_PRD(RB) ,RO : Get associated IRP 
51 32 a0 3¢ 10A3 $99 MOVZWL IRP$W~BCNT(RO),R1 : Setup number of user bytes 
32 58 10A9 +04 PUSHR #*M<R1,R4,R5> 3; Save regs 
63 38 a0 51 1 206 MOVCS 1, 1RP$L_fOST1(RO),(R3) : Move data 
32. —SOoBA ! ’ ? POPR #°M<R1,RE,R5> ; Restore regs 
10 #11 ~«#7 705 BRB 30$ 3 Finish in common 
! r 4 $ 10$: ; 
ig 3 : Xmit LINK SERVICE (flow control/back-pressure) message 
1084 3710 3 
| 


5 


— 8 
for NETORIVER 16- 
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v04-000 BLD_DAT = Build DATA message iets EGE ENETACP. SREINEYDRVNSP.MAR: 1 “ (62) S) 
4E AG 10 «90 «(1084 «3711 MOVB_ #NSPSC_MSG_LS,CXBSB_X_NSPTYP(R6) ; Enter message type code 1 
83 6C aS EO SF 8B 1088 $71¢ BICBS #NSPSACFLU-DRV .xuBSB X,FLWCRD),(R3)+ ; Enter flow Control mode 1 
8 6D AS 0 108 71 MOVB XWBSB-X_FCWCNT (RS), (R3)+ ; Enter flow control value 1 
51 04 10C2 3714 CLRL oR ; Setup # of user bytes I 
10ch $715 30s: t 
19¢4 i : Common LS/INT message completion HH 
10C4 371 : I 
10 AS) 610)—OAA 1pe4 , 0 BICW  #XWBSM_FLG_SLI,xXWBSW_FLG(RS) ; Clear work bit | 
He , : ASSUME XWBSV_STS_TID EQ 0 : i! 
03 OF AS 5? We 724 BLBC XWBSW_STS(R5) ,40$ ; If LBC, timer is unowned I 
008A 31 10CC 3725 RW ; Else, take common exit II 
OE AS 02 AS 10CF 37 $ 40$: BISW #XWBSM_STS_TLI,XWBSW_STS(R5) ; Mark INT/LI channel as owner II 
007C 3 1903 f £ sos oe EX_T : Set the timer | 
: : Done 
iB oe 
1007 3731 BLD_DTACK: ; Build DATA ACK Il 
1¢ AS 0060 8F B83 1007 37 g BITW #XWBSM_FLG_WHGL!- ; Any wait conditions preventing Il 
10DD 37 XWBSM_FLG_WBP,XWBSW_FLG(RS5) ; DATA message xmission ? Il 
11 13 1000 3734 BEQL BLD_DAT : If not, piggy-back this ACK Il 
51 07 9A 10DF 3735 MOVZBL #NSPSC_HSZ_ACK,R1 ; Setup size of NSP message II 
012F 30 IES 736 BSBW = GET_XAT_BOF ; Get buffer for ACK II 
10E ia 3 * no return on error II 
58 O0OA4 CS 9E 10€5 3738 MOVAB XWBST_DT(RS),R8 ; Get subchannel block II 
83 04 90 10EA 3739 MOVB #NSPSC"MSG_DTACK,(R3)+ ; Enter message type II 
OOAE 31 IED mo BRW BLD_ACK_DAT ; Build common header HH 
10F0 ee BLD_DAT: ; Build a DATA message If 
58 O0A4 C5’ 9E ire 74 MOVAB XWBST_DT(R5),R8 ; Get subchannel pointer Ls 
00c9 = «30 4 e} oe BSBW GET_XAT_CxB 3 Get next CXB for transmission x 
; No return on error ‘ 
00A3 30 10F8 3746 BSBW BLS ACK_DAT ; Build header pest ACK field L! 
04 a8 57 Bi 10FB 3747 CMPW R7 ,CSB$Q_HXS(R8) ; Highest sendable segment ? ‘ 
1D 12 OFF 3748 BNEQ 708 ; If NEQ no, there's more 
1C AS 9 AB 1101 3749 BISW #XWBSM_FLG wie XWBSW_FLG(R5) ; Set wait condition 
68 B1 1105 3750 CMPW = sR7, LSBSW_LOX(R85 : Is this the last seq queued ? 
4 12 1198 31 BNEQ =: 80 ; If NEQ no, there's more 
OF AB 0D AB 91 «110A 2g CMPB SBSB_X_CXBACT (RB) .L SB$B_X_CXBQUO(R8) ; At our Limit ? 
2D 1€ 110F 3754 BGEQU 0$ : If GEQU, yes 
OC AB «OD AB 91 «1111 +=«=+35755 CMPB bpeeO A CHBACT CRS) -. SO0S_N PUTIN CRS! ; Could we send more ? 
6 61€ Vig £38 BGEQU 0$ :_If GEQU, no 
52 8 8° 111 75 OVL R8B,R2 ; Setup LSB for call 
FB9A 0 BY £38 BSBW FILL_XMT_CXBS ; Try to get more data 
18 SAAS 04 €1 1) 760 708: BBC #XWBSV_PRO_NAR,XWBSB_PRO(R5),80$; If BC, NAR option not allowed 
11 76 ; 
11 786 ; We may request that the ACK be delayed in order to reduce the number 
11 764 ; of messages being processed. In order to get an overlap between the 
11 765 ; the pipelined data stream and the returning ACK stream, we must ask 
11 766 ; for an ACK half way (arbitrarily chosen) between into the maximum 
11 76 : pipeline currently allowed. 
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we ORynse = DECnet NSP module for NETORIVER 197 3Er- 138% 01:36: 6@ AX/VMS Macro V04-00 ge 8¢ 
v04-000 BLD_DAT = Build DATA message =SEP-1984 7:20:04 (CNETACP.SR REIN ETDRVNSP.MAR; "hs (62) 
te an 
11 584 3 SuBWS LSBSW PAR RE} oh SOSYAHXS CRE) .RO 3; Get # of packets in the pipe 
50 57 O6A A311 771 SUBW LSB SW HAR (RB) 3; Get # of packets in the pipe 
50 5 AO 11 ak ADDW R 3; Double it 
02 0C A F 1128 377 BLBC rS6SB. X_PKTWND(R8) ,75$ : If even okay 
5 6 112F 3774 INCB a 3; Else adjust the threshold 
OC A8 3 91 1131 3775 75$: CMPB RO, LSB$B_X_PKTWND(R8) ; Half that allowed? 
0 \3 1 3 ak: BEQL o§ : If so, ask for an ACK 
83 4000 8F As 11 77 BISW #NSPSM_SEQ_NAR, (R3)+ ; Suppress ACK for effeciency 
- ws ore BRB 90$ ; Continue 
He Hg 7 
83 4000 8F AA 11¢3 781 80$:  BICW  #NSPSM_SEQ_NAR,(R3)+ t Make sure ACK is sent 
51 OC A6 3C 114 at 90$: MOVZWL CXBSW_LENGTH(R6) ,R1 : Setup nae of user bytes 
53 51 CO 1147 3784 ADDL 1,R ; Advance R3 to end of message 
148 785 ASSUME Rwesy. STS_TID EQ 0 ; 
OB OF AS EB 114A 3787 BLBS  § XWBSW_STS(R5).EX : If LBS, timer already owned 
OE AS O02 AA Vie res BICW  M#XWBSM~STS_TLI,XWBSW_STS(R5) 3; Mark DATA channel as owner 
1152 3790 7 : 
115 791 ; Common exits for sequenced messages 
1185 3798 
48 AS 57 BO 1152 379% MOVW = RR?’ KWBSH, TIM_ID(RS) ; Setup timed segment's number 
o2ce 0 1156 3795 BSBW sete ; Set the timer in RUN s 
02 a8 5 8° 1159 3796 EX: MOVW ets Ree X(R8) : This will be ‘last no. — oa 
50 08 AS 57 A3 1150 379 SUBW3 Re TSBSue HAACRB) RO : Gtr than ie f ACK acceptable’ 
04 50 98 E1 1162 3798 BBC *R : If BC then LNX leq H 
08 AB 57 «BO 1166 3799 MOV R? .L SBSW_HAACRB) : Else update HAA as — ;* 
50 01 DO 116A 3800 100$: MOVL #1,R : Indicate message was built 
05 1160 3801 RSB 3; Done 
1186 3808 
116E 04 BLD_ACK_LI: ; Build LS/INT common header 
58 0004 CS’ 9 119 3 MOVAB XWBST_LI(R5),R8 3; Get subchannel block 
a 0? ASSUME NSPS$C_HSZ_ACK+2+16 LE IRPSC_LENGTH ; Use lookaside List 
51 C4 8F QA 117 09 MOVZBL #IRPSC_LENGTH,R1 : Setup size of NSP message 
117 10 : Large enough for Interrupt msg 
009A 4830 «1177 11 BSBW GET_XMT_BUF : Get buffer for message 
117A \§ : = no return on error 
57 02 A8 Al 117A 1 ADDW3 #1,LSB$W LMACRB) R7 ; Get next seonent number 
FOOO 8F AA HT 44 13 BICW #*X<FOOOS,R : Mask off 
16 90 1184 381 MOVB #NSPSC_MSG_LIACK,(R3)+ Set message t 
1C rt; 4 R 1187 19 BICW #XWBSM"FLG” PuAce XWBSW_FLG(R5) ; Need to ond Ker is satisfied 
001C a5 546~«CO«&ESS:sC1 18 BBCC. R4,XWE$W_FLG(R5S,10$ ~ ; Clear flag that got us here 
50 26 a8 F000 er AB 11 19 10$: BICW3 wxcF0 0>* LSesu HAX (RB) > Get ACK value 
17 OE AS 9 € 119 0 BBCC v_st§ _LINAR, XWBSW ” 3cn5) .ack Br entees NAK is to be sent 
10 «+11 119¢ : BRB : Send as a NAK 
119 
1198 4 BLD_ACK_DAT: ; Build DATA ACK header 


or NETORIVER® . = or 1882 0}: 34:86 WAN Nee Macro V04-00 Page B | 


we oryns? = DECnet NSP module f 
v04-000 BLD_DAT = Build DATA message NETACP.SRCIJNETDRVNSP.MAR; 1 2) 
1c A 8 AA 119 5 BICW. #XWBSM_FLG_SDACK,XWBSW_FLG(R5S) ; Clear the work bit 
50 26 A8_ F000 8F ae 11A § BICW3 #*x<FO00>, CSBSW_HAX(RBY ; Get ACK value 
05 OE A 8 €5 11A BBCC #XWB$V_STS_DTNAR,XWBSW_STS(R5),ACK ; Br unless NAK is to be sent 
50 «1000 8F AB 1A 2 NAK: BIW #NSPSM~ACK-NAK RO ; Set the NAK flag 
118 0 "ASSUME XWBSW_LOCLNK EQ 2+XWBSW_REMLNK: 
83 3C AS DO 118 : MOVL. _XWBSW_REMLNK(RS),(R3)+ t Enter Link addresses 
83 50 8000 8F Ad 118 BISW3 #NSPSM~ACK_VALID,RO, (R3)+ : Enter ACK field 
50 01 47D 118d Ste MOVQ #1,R0 ; R120 => no user bytes in msg 
1100 3835 ; RO=1 => success, xmt message 
05 11C0 836 RSB ; Done 
11¢1 
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TORVNSP - DEC NSP module for NETDRIVER 16-SEP-1984 01:34:22 VAX/VMS Macro v04-00 Pa 84 
WO4e 000 GET_XMT_CXB = Get xmt CXB while in FDOT ¢ g- tr =13 4 $3 336564 ENETACP. SREINE TDRVNSP.MAR; 1 ” (63) 
~SBTTL GET_XMT_CXB ~ Get xmt CXB while in FDT context 
INPUTS: Re LSB address 
R7,R6 Scratch 


R3 
R3-RO0 Scratch 


OUTPUTS: si Preserved 
e Segment number 
R6 CXB address if LBS in RO 
RS,R4 =Preserved 
& Pointer to CXB$B_X_NSPTYP+1(R6) 
R2,R1 Garbage 
RO Low bit set if return to caller's caller 
Else, garbage 


GYP + Se Se Oe Oe Oe Oe Oe Oe Oe Be Be Oe Oe Se Bee 
Lady 


me 
“~ 
=< 
=z 
= 
o 
Pea 
ow 


57 0208 01 AI ~" “ADDW3 «#1, LSBSW_LNX(R8) ,R7 : Get next sequence number 

57 57 OC OO EF EXTZV #0,#12,R7,R7 : Strip off the junk 
56 O08 AB SE MOVAB LSBSL_X_CXB-CXBSL_LINK(R8),R6 =; Init for CXB scan 

56 10 A600 10$ MOVL CXBSL_LINK(R6) ,R6 ; Get next CxB 

19 BLSS 20$ 3; If LSS then got one 
BUG_CHECK NETNOSTATE,FATAL : CXB List was empty 
57 55 a6 OC O00 ED 208: CMPZV = #0, #12, CXBSW_X_NSPSEQ(R6) ,R7 : This it? 
EE 12 BNEQ 10$ 3; If NEQ no, loop 


3 If CXBSV_CD_XMT is currently set in CXB$B_CODE then it is already 
: queued to some datalink output queue -- since the datalink driver 
; may be using the datalink-header portion of the buffer, we must 

3 clone a new CXB for transmission. 


SSN DDD DED DD DDD I Be BE PEE 
NOUS WN SO OD NOAUE WIN 9 ODNAUE WN OO OONOUS WO 0 


= QO90000 4 FFF FH MM MMMMMMMMMMOO OOO FAM ANMAIANAAAAAAAAAAAAAQNOO 1 @ 
W909 9 PF QUINT DW OUWIWNO PO SS STH QOD Ot oe 


9.00.09 69 00 Cd Gd Cd OD G9 Cd GD CD Cd GD Gd Cd Cd GD Gd Cd Gd Cd Cd 09 OD Od Cd Od GD CD Cd Gd OD Cd G9 G9 CD CO CD CD: 
OOOO OOOO 0000 0909 C9908 INI NN 


1F 0B A6 00 §3 BBCS #CXBSV_CD_XMT,CXB$B_CODE(R6),80$; If BC then buffer is free 
51 08 AB 3C MOVZWL CXB$W_SIZE(R6S,R1 : Get size of buffer 
00000000'°GF 16 8 JSB G EXE SALONONPAGED : Allocate the buffer 
L . ; L then allocation failure 
1A 50 =€9 4 BLBC RO, 2008 If LBC th at ion fail 
0 1 PUSHR #*M<R4,R5> 3; Save regs 
2? § D § MOVL R6,R5 ; Copy old CXB pointer 
g MOVL R2,R6 ; Setup new CXB pointer 
66 66 1 4 MOVCS =R1, (RS), (RO) ; Clone the original message 
0B A6 gi 5 MOVB aciesn_(p XMT,CXBSB_CODE(R6) =: Say “xmt in progress 
0 BA § POPR #*M<R4—R5SS ; Recover XWB address 
53 4F AG 9 8 80S: MOVAB $xO88 1 _NSPEYPOT (RG) AS ; Setup output pointer 
50 01 3 MOVL #i1,R : Indicate sucess 
, RSB 3; Done 
1C AS ge A § 200$: BISW #XWBSM_FLG_WBUF ,XWBSW_FLG(RS) ; Set wait flag 
:. TSTL (SP)+ ; Pop caller's address 
05 4 ; Return RO to caller's caller 


® 
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we Yonyas? = DECnet NSP module for NETORIVER 197 sE b= 1386 9} :35: 62 AX/VMS Macro V04-00 Page 85 
v04-000 GET_XMT_BUF = Get xmt buffer while in fo 5-SEP-1984 02:20:04 (CNETACP.SRCINETDRVNSP.MAR; 1 (64) 

! 1? 38 -SBTTL GET_XMT_BUF - Get xmt buffer while in fork context 
1214 38 : 
1214 99 ; INPUTS: Re Scratch 
1214 0; R5,R2 sgratch 
1214 3901 ; R1 Size of NSP portion of message 
: 12 2 A 3 RO Scratch 
1214 3904 ; OUTPUTS: RG Buffer (CXB) address 
1214 3905 ; R Pointer to message NSP area within buffer 
1214 39 $ 3 Tl Garbage 
1214 3907 ; R Status 
1214 3908 ; 
: 19 39) ; ALL other registers are unchanged 
1214 3911 ; CXBSW_SIZE Actual CXB block size 
1214 aig 3 CXB$B_TYPE DYNSC_CX 
1214 3913; CXB$B_CODE CXBSM_CD_XMT 
1214 3914; 
1214 3915 ; 
! 1? 316 : If allocation failure, return is to caller's caller. 
1214 3918 ; 
1214 919 ;- 
1214 3920 GET_xMT_BUF: ; Get xmt buffer 

51 52 Al 9E 1214 3921 MOVAB CXBSC_OVERHEAD - 3; Add in CxXB 
1218 39 § +TRS$C_HSZ_DATA(R1),R1 ; + Transport msg overhead 

00000000'GF 16 1218 39 JSB G*EXESALONONPAGED ; Allocate the buffer : 
1250 €9 121E 3924 BLBC RO,200$ : If LBC then allocation failure 
56 dO } > 5 MOVL R2,R6 3; Setup CXB pointer 
1224 39 $ : 
1226 39 3 $ Fill in common CXB fields 
1224 39 : 
1224 3930 . 
4 ; 1 ASSUME CXBSB_CODE £€Q 1+CXBS$B_TYPE 
0118 8F BO 1224 39 5 MOVW #DYNSC_CXB+<18<CXBSV_CD_XMT+8>>,-; Setup block type 
OA A6 1228 3934 CXB$B_TYPE(R6) 3 ..-and setup CXB$B_CODE 
9 A651 0 122A 3935 MOVW R1,CXB$W_SIZE(R6) 3; Setup the size 
5 4E A6 4 1 9 § MOVAB CxB$B_X_NSPTYP(R6).R3 ; Point to message area in buffer 
0 : , 100$: RSB ; Return status in R 
1C AS ge ag 1 9 3 200$: BISW #XWBSM_FLG_WBUF ,XWBSW_FLG(RS) ; Set wait flag 
E B 1 940 TSTL (SP)+ 3; Pop caller's address 
5 1239 3941 3; Return to caller's caller 

! " meg ; with LBC in RO 
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os yoryyer ~ bEtnes NSP 97360-1988 93:38: 88 PAatyes Macro V04-00 Page 86 
v04-000 NETSIO_STATUS = Receive xmit status from 5-SEP-1984 02:20: NETACP.SRCIJNETDRVNSP.MAR; 1 (65) 

123A 3945 -SBTTL NETSIO_STATUS = Receive xmit status from prenaeers layer 

! ‘ 208 ms -SBTTL NETSCCS_IOSTAT = Receive xmit status for Phase II CC message 

103A 3948: 

123A 309 : This routine is called by Transport to return transmit status to NSP. The 

! " 2 3 action is to deallocate the CXB if it is no longer in use. 

123A 3952 : 

123A 39535 ; INPUTS: R5 IRP address 

123A 3954; R4,R3 Scratch 

123A 3955 ; R2 RCB pointer 

123A 328 5 R1 Scratch 

: " $36 : RO CXB address (no longer attached to IRP) 

123A 3959 : 

} “ 308 : OUTPUTS: R4,R3,R1,R0 are garbage. ALL others are unchanged. 

123A 3962 : 

123A 3965 ;-- 

123A 3964 NETSCCS_IOSTAT:: 3; Receive status after goneteg a 

: Mn #4 3; Connect Confirm to a Phase II node 

OFES 8F BB : 3 4H PUSHR #*M<RO,R2,R5,R6,R7,R8,R9,RIO,RII> ; Save regs 

123E 3969 MOVL RO,R8 : Save temp copy of CXB address 

1241 3970 MOVL R5,R6 ; Save or copy of IRP address 

1244 3971 MOVZWL CXBSW_X_NSPLOC(R8).R3  ; Get local Link number 

12468 397 BSBW NETS$XOB_LOCLNK : Find the XwB 

1248 397 BLBS B ; If LBS not found 

1 4 974 MOVZBL #NETEVTS_PH2CCS.R7 ; Setup event 

125 975 BLBS IRPSL_IOST1(R6),10$ : If LBS then no 1/0 error 

1256 376 MOVZBL #NETEVTS_DSCLNK,R7 ; Else indicate Link failure 

125A 3977 10$: CLRL R 3: Say ‘‘can't go to IPL 2° 

: 2e 378 BSBW NETSEVENT 3; Report the event 

3 980 20$:  POPR #*M<RO,R2,R5,R6,R7,R8,R9.R10,R11> ; Restore all regs 

6 $8 > Fall thru to NETSIO_STATUS 

126 384 NETSIO_STATUS:: ; Receive xmit status 

126 985 BICB #CXBSM_CD_XMT,- 3; 1/0 no longer pending 

1265 39 6 CXxB$B~COBE (RO) : 

126 9 BNEQ 10$ ; If NEQ then don't deallocate 

1269 39 8 BSBW NE TSDEALLOCATE : Deallocate the block 

126C 3989 10$: RSB 

126D 3990 

126D 3991 
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the ty NETETINER - Process NETDORIVER le tick g-3EF P=1984 t $3: 34 ‘6 ENETACP. SREINE YDRVNSP.MAR: 1 . (Bo) 
! 43 + a ki -SBTTL NETSTIMER - Process NETDRIVER clock tick 
1260 3995 : 
1 ep 338 3 tte C.b.s ete 
158> 3098 
re 
1260 4 89 NETSTIMER:: : seat WRens 
0C30 8F BB 1 $0 4 § PUSHR #*M<R4,R5,R10,R11> ; Save regs 
1071 4 DSBINT UCBSB_ ‘ie (R4S ; Raise to driver IPL 
58 D4 1278 4004 CLRL R11 3; Say “can't go to IPL 2" 
1h Ge 
127A 4 09 3 If mount count = 0 then we're shutting down the network -- stop 
! ga i008 $ the clock and signal NETACP by deactivating the local LPD. 
127A 4010 : 
52 4 AG DO 127A tte MOVL UCBSL_VCB(R4) ,R2 3; Get RCB 
4 A2 BS 127E 4 1 TSTW  RCBSWIMCOUNT(R2 : Still active 
ik 1s 1281 401 BNEQ 5$ 3 If NEQ t 
ED7A' 30 1283 4014 BSBW TRSKILL_LOC_LPD : Kill che teat * PD 
5¢ 50 E9 1286 4015 BLBC : Br on error 
AS 046 BA 1289 aRi8 BICB #TOESM wit TQESB_RQTYPE(RS) : Stop the clock 
50 OO00'CF 9E& 128D 401 MOVAB UNETSOL _OFF _bPT LG; Re ; Get address of offset 
50 0000' CF co (1 4 4018 ADDL W°NETSGL OFF ~bPTFLe 3; Point to DPT$B_FLA 
UNL ; ow driver to be reloade 
60 04 BA 1297 4019 BICB § #DPTSM_NOUNLOAD, chose Allow dri be reloaded 
49 11 129A 4020 BRB 20$ 3; Done 
ise HB) 
129C 40 5 $ Call the Transport layer timer service routine 
ie ae 
ED61" 30 129¢ 1058 BSBW ss TRSTIMER : Call Transport Layer timer 
i 
129F 4029 s Process all NSP Level clocks 
159r 6031 
54 24 A2 00 129F 1038 MOVL RCBSL_PTR_LTB(R2) ,R4 : LTB 
40 1 1 Ag 40 QL $ § ff EOL then none 
55 £0 AS QE 12A5 4034 MOVAB -XWBSL ob met TOSt XWB(R4) ,R5 ; Prepare for scan 
55 2C AS DO 12A9 4035 108: MOVL XWBSL_LINK(RS) ,R5 : Get next XwB 
; 13 12AD 8 § BEQL it ; If EQL teen none left 
1C AS 0402 8F B3 12AF 4 BITW #XWBSM_FLG_WBUF 3; Waiting for buffer 
12B5 4038 XWBSM_FLG_WDAT, *WBSU_ FLG(R5S) 3: or need to try for more data? 
06 13 1285 4039 BEQL 12$ : If EQL no 
ED ee 3 1287 4040 BSBW NE TSFORK : Service WBUF 
F95 0 12BA 4041 BSBW NETSQAST 3; Service WDAT 
50 0118 be +4 ' Bo ? rt: 12$: REROUE @XWBSQ_FREE_CXB(R5) RO 3 este buffer 
e039" 30 1 ‘¢ 4044 BSBW NE TSDEALLOCATE : Deallocate the block 
0083 CS) («97 «=—12C7 =—«4045 DECB XWBST_DT+LSB$B_X_CXBCNT(R5) 3; Account for i 
4A AS B6 12CB 4 rf 13$: INCW sir t pe “ELAPSE(R5)~ : Track elapsed time 
50 aS ° 1 43 404 XWBSW- —TIMER(RS) 3; Update time left 
Bg A 1201 4048 BGTRU 1 ; Br unless tincout . 
05 0E AS 0 E1 12D3 4049 BBC #XWBSV_STS_SOL ,XWBSW_STS(R5),15$ ; BC, not on solicit queue 
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Pe ee ee ee ee ee et et ot ot a a a a a a ee ee eee 


. 1 
R clock tick 
W XWBSW_TIMER(RS) 


L 
DRIVER 
E 


XWBSL_VCB(R5S) ,R2 
{}REOOT 
10$ 


Return to the Exec 
BINT 
or #*°M<R4,RS,R10,R11> 


-ENABL LSB 


SDISPATCH TYPE=B, XWBSB_STA(RS) ,~ 
<XWBSC_STA_RUN, T_O_RUN>,- 
XWBSC~ST T=07C 


< 
“STA~ T=07CC>;- 
<XWBSC-STADIS, TIO“DI>.- 


> 
BRB 70$ 


W #YWBSM_FLG_SCD, XWBSW_FLG(RS) 


ee ef «8 
wow 
ze 
wow 


viability of the Link. 
message should stil 
and the Link will break. 


Confirm as a response -- thus also 


BBS § #XWBSV_PRO_PH2,XWB$B_PRO(RS) ,60$ 


ASSUME XUBSV_STS TID FO 0 
BLBC  _XWBSWTSTSTR5) ,60$ 
BBS  #XWBSV~STS_TLI.XxWBSW_STS(R5) ,50$ 


AX/VMS Macro Vv04-00 
NETACP.SRCJNETDRVNSP.MAR; 1 


S78Eb=198« O2:20:00 


Ferce a retransmission of all unACKed messages. 
timer has expired but there are no outstanding ACKs, then send a 
harmless flow control message, which requires an ACK, to test the 


is not up then the “‘progress'’ count on the X 

i If the the other end of the logical-Link 
is gone but its node is up (e.g., other node crashes and reboots) 
then when it receives this message it will send a Disconnect 
breaking the Link. 


Page 88 _ 
(66) 


Come back in another second 
Done for now 

Setup RCB pointer 

Process timeout 

Loop 


Restore IPL 
Restore context 


Dispatch on Link state 


RUN state 

Connect Initiate Sending state 
Connect Confirm Sending state 

Disconnect Init Sending state 

else, fall thru 

Continue 


Timeout xmting C1 msg 
Timeout xmting CC msg 
Timeout xmting DI msg 

Set ‘send Connect/disconnect 
Continue 


If the inactivity 


Phase II logical-Link do not timeout wets ing for an ACK, but a 
l be send every “‘inactivit 
order to make sure the other side is still up. 


y timer’’ interval in 
If the other side 
will reach its Limit 


If BS, Phase I] 


hen inactivity timer 
I subchannel owns timer 


wee 
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v04-000 NETSTIMER = Process NETDRIVER clock tick 5-SEP=-1984 02:20:04 CNETACP.SRCINETDRVNSP.MAR; 1 (66) 
1318 4107 i Timeout on DATA subchannel. Reset LNX and shrink the transmit- 
13518 4108 ; packet-window. 
1318 2110 
52. 00A6 CS. 9E:s1318 «4111 MOVAB XWBST_DT(RS) ,R2 ; Setup LSB pointer 
02 a2 06 A2 80 131D 4ii¢ MOVW  LSBSWIHAR(R25 ,LSBSW_LNX(R2) ; Rexmt all unACKed segs 
1 411 3 «and enforce LSB Rule 2b. 
F561 30 «(1 4114 BSBW SHRINK_XPW ; Shrink the xmt-packet-window 
1 4115 3: * clobbers RO-R4. May pass 
1325 2118 ; off timer to a different 
1 2 411 3 _ message 
17 0E AS «6€9 «(1 2115 BLBC XWBSW_STS(R5) ,60$ : If LBC, Siner is now unowned 
01 €0 1329 411 BBS #XWBSV_STS Teles ; If BS, timer given to LI 
45 OE AS 132B 4120 XWBSW-STSTRS) ,80$ 3 subchannel 
36 3 E 4121 BRB 70$ ; Else, update PROGRESS even if 
1330 41 § 3; new XWBSW_TIM_ID value 
HB SNE S08" 
1330 4125 $ Timeout on LI subchannel 
a a 
52 0004 65 9 1330 4128 MOVAB XWBST_LI(RS) ,R2 ; Get LI LSB 
02 A2 06 A2 B80 1335 4129 MOVW LSBSWIHAR(R2) ,LSBSW_LNX(R2) ; Rexmt all unACKed segs 
133A 4130 3 «and enforce LSB Rule 2b. 
10 AS 10 AB 133A 4131 BISW #XWBSM_FLG_SLI,XWBSW_FLG(RS5) : Set ‘send LI* flag 
26 «#611 «#+»133€ 41 § BRB 70$ : Continue 
ib fe: 
1340 4135 : Cause (possibly null) flow control message to be sent in order to 
1340 4136 3 cause the partner node to send and ACK. This is done to make sure 
1340 4137 $ that the partner node is still there. 
a 
50 AS 4C AS BO 1340 4140 MOVW XWBSW_TIM_INACT(R5) ,XWBSW_TIMER(RS) ; Reset timer 
1¢ AS 4000 8F AB 1345 4141 BISW #XWBSM~FLG_SDFL,XWBSW_FLG(RS) : Schedule flow ctl msg 
1308 2123 
1348 4144 : If the XWBSL_PID field is zero, then there is no current owner of 
134B 4145 3 this Link and we are in the RUN state waiting to transmit the 
134B 4146 3 message currently committed to the pipeline. Hence, make sure that 
1348 4147 3 backpressure relaxed in order to avoid deadlock -- e.g., if both 
ite 2138 ; ends of the Link were in this state we would have deadlock. 
1348 £129 3 The reason both rotaning backpressure avoids the deadlock is that 
1348 4151 3 recety ioe a message that we cannot buffer while in the RUN state 
1348 $126 ; with XWBSL_PID equal to zero will cause the Link to be marked for 
1348 415 3 disconnect (see routine BACK_PRESSURE). 
i 
34 AS DS 1348 4196 TSTL § XWBSL_PID(RS) ; Any owner process 
2 ig 1 <f 415 BNEQ ; If NEQ yes 
00C4 C¢ D5 1350 4158 TSTL XWBST_DT+LSBSL_R_CXB(R5) 3; Any_data currently 
3 13 1354 4159 BEQL : If EQL then none 
0058 4630 ~«(1 26 4160 BSBW NE TSMARK_LINK ; Cause Link to break 
15 OE AS $6 E1 1359 4161 65$: BBC #XWBSV_STS_RBP,XWBSW_STS(R5) ,80$; If BC then no backpressure 
1¢ AS 0800 8F AB 135 416¢ BISW #XWBSMFLG-TBPR,XWBSQ_FLG(R5S =; Relax (toggle) backpressure 
OD 11 1364 416 BRB 80$ 3; Continue 
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1366 4164 70$: H 
1 98 4165 H 
136 2198 3 Common timeout processing 
a 
1 $9 4169 BuMP W,NDC#+NDC$W_RTO(RS) ; Account for response timeout 
10 1 ! 4170 BSBB UPD_PROGRESS ; Update progress count 
ECBA* 30 1373 4171 80$: BSBW NETSFO ; Fork to do new work 
05 1376 1128 100$: RSB ; Done 
1377 417 
1377 4174 -DSABL LSB 
1377 4175 . 
1377 4176 
1377 4177 
02 AO 06 A0 81 1377 4178 RESET: CMPW LSBSW_HAR(RO) ,LSBSW_LNX (RO) ; Anything to rexmt ? 
OA 13 ier 4179 BEQL : If EQL no 
02 AO 06A0 8B0 1 43 4180 MOVW LSBSW_HAR(RO) ,LSBSW_LNX (RO) ; Rexmt all unACKed segs 
1383 4181 3 «e-and enforce LSB Rule 2b. 
50 96 1383 $136 INCB RO : Indicate this LSB was reset 
51 01 90 1385 418 MOVB #1,R1 ; Set retransmit flag 
1388 4184 10$: RSB ; Done 
1389 4185 
1389 4186 
1389 4187 UPD_PROGRESS: ; Decrement progress count 
52 A5 B86 1389 4188 INCW XWBSW_PROGRESS(R5) ; Account for lack of progress 
52 A5 Bi 138C 4189 CMPW XWBSW_PROGRESS(R5) ,- ; Has it grown too large ? 
54 AS 138F 4190 XWBSW_RETRAN(RS) ; 
1€ F 1391 4191 BLSSU 20 : If LSSU then okay 
1F «610 61393 4192 BSBB NE TSMARK_LINK 3; Mark Link for break 
EAS 20 AB 1395 4193 BISW #XWBSM_STS_TMO,XWBSW_STS(R5) 3: Indicate timeout 
0000' 8F B1 1399 4194 CMPW #NETSC_DR_INVALID,- ; 
44 AS 139D 4195 XWBSW-R_REASON(RS) ; Reason code set yet? 
04 12 139F 4196 BNEQ $ : If NEQ then yes 
27) =6BO «2613A1 «24197 MOVW #NETSC_DR_NOPATH,- ; Setup local reason code 
44 AS 13A3 4198 XWBSW-R_REASON(RS) ; 
0000°8F B61 13A5 4199 10$: CMPW = #NETSC_DR_INVALID,- ; 
46 AS 13A9 4200 XWBSW-X_REASON(RS) ; Remote reason be set yet? 
04 12 13AB $50) BNEQ ; If NEQ then yes 
26 BO 13AD 4 8 MOVW M#NETSC_DR_EXIT,- ; Setup code to send to partner 
46 AS 13AF 420 XWBSW_X_REASON(RS) 3 
007F 31 1381 4204 20$: BRW RESET_TIMER 3; Set NSP timer 
1384 4205 
13B4 4 8 
13B4 4207 NETSMARK_LINK:: 3; Mark the Link for break 
OE AS 01 AA 1384 4208 BICW #XWBSM_STS_TID,XWB$W_STS(R5) ; Free-up the timer 
1¢ AS 601) AB s«1:38B8 $533 BISW #XWBSM"FLG_BREAK,XWBSW_FLG(RS) =; Mark Link for abort 
EC41° 30 138C 4210 BSBW NE TSFORK : Fork to do new work 
05 13B8F 4211 RSB : Done 
13C0 4212 
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-SBTTL TIMED_SEG_ACKED = Timed segment has been ACK'd 
-ENABL LSB 
TIMED_SEG_ACKED: ; Timed segment has been ACK'd 


1 
7) 


INPUTS: R5 XWB pointer 
RO Scratch 


OUTPUTS: RO Garbage 
ALL other regs are unchanged 


; Update delay estimate as a function of the former delay, the new 
; round trip time (delta) and the ee og nity s value is 
: store after being incremented by one). The following shows the 

; derivation of the formula used to compute ‘delay’. 


delay = ((delay*weight)+delta)/(weight+1) 
= delay + ((delta-delay)/(weight+1)) 


elapse = delta - delay (‘elapse’ is biased to minus ‘delay’ 
(when the msg was first sent and 
(incremented each clock tick - it may 
(be negative 


delay 


delay = delay + elapse/(weight+1) 


50 4A AS BO MOVW KWBSW_ELAPSE(R5) ,RO Get elapsed time 


OF 18 BGEQ 3 GEQ then arrived late 
50 50 AE MNEGW RO,RO ; Convert to positive number 
50° 58 AS A6 DIVW XWBSW_DLY_WGHT(R5),RO ; Get weighted adjustment 
50 = B6 INCW RO ; Ensure minimum of 1 sec change 
; to allow for loss of fractional part 
4E AS 30 a on a a0 XWBSW_DELAY(R5) ; Get new delay value 
50 58 AS AG 5$ DIVW XWBSW_OLY_WGHT(R5),RO ; Get weighted adjustment 
50 = B6 INCW RO ; Ensure minimum of 1 sec change 
; to allow for loss of fractional part 
50 4E€ AS AO ADDW XWBSW_DELAY(RS) ,RO ; Get new Goloy value 
14 39 B1 CMPW R #NSPSC_MAX_DELAY 3 rompere against max delay allowed 
0 18 BLEQU 2 : If LEQ (unsigned) then okay 
50 14 3 MOVZWL #NSPSC_MAX_DELAY,RO ; Else use the max delay allowed 
4E AS 50 B0 gos: MOVW RO, XWBSW_BELAY(RS) ; Update the delay 
04 #14 5$: BGTR 3 ; If GTR (signed) then okay 
4E AS 01 80 MOV #1, XWBSW_DELAY(RS) ; Use 1 sec as minimum delay 


30$: Fall thru 
CANCEL_TIMER: 
See if an already xmitted segment is waiting to be ACK'd. 


On the LI sub-channel, since neither negative flow control or 
backpressure are allowed, this is merely a matter of checking 
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yO4-000 TIMED_SEG_ACKED = Timed segment has beer. etsy $3 :30;64 NETACP.SRCINETDRVNSP.MAR; 1 ’ (35) 
V3F1 4374 ; for HAR < LNX. 
; 
15F1 4 o ; On the DATA sub-channel, since negative flow control and back- 
13F1 4274 : pressure are allowed, it is necessary to check for HAR < LNX, 
13F1 4275 5 and that the Link is not backpressured off. 
1361 4599 
13F1 4278 ; NOTE: LSB Rule 2a + 2b imply that HAR is always leq LNX. This 
: 4 i ; fact is used below to avoid messy 12 bit comparisons 
HBB 
OE AS 03 AA 13F1 4 g BiCW #XWBSM_STS_TID!- ; Timer is unowned and init 
13Fe 4284 XWBSM_STS_TLI,XWBSW_STS(R5) 3; subchannel tog to known value 
OOAS CS) «SE «13F5 «4285 MOVAB XWBS$T-DT(RS) ,RO : Get DATA sub-channel LSB 
02 AO 06 A0 Bi 13FA 4286 CMPW = LSBSWTHAR(R9S ,LSBSW_LNX(RO) ; Anything sent but unACKk'd 
0S 13 13FF 4287 BEQL 40$ :; If EQL then no 
15.10 AS 06 €1 1401 4288 BBC #XWBSV_FLG_WBP,XWBSW_FLG(R5),60$ ; If BC then no backpressure 
50 0004 €5 9E 1406 4289 40S: MOVAB XWBST_LI(R5),RO ; Get LI sub-channel LSB 
4C AS BO 1408 4290 MOVW XWBSW_TIM_INACT(R5),=- ; Setup inactivity timer 
50 AS 1406 $53 XWBSW_TIMER(RS) 3 assuming nothing to send 
02 AO 06 A0 81 1410 4 8 CMPW LSBSW_HAR(RO) ,LSBSW_LNX(RO) 3; Anything sent but unACK'd 
33 13)=«1415 $53 BEQL 10 : If EQL, no 
OE AS O02 A8 1210 : 3¢ BISW #XWBSM_STS_TLI,XWBSW_STS(R5) ; Timer owner is LI subchannel 
141B 4296 : 
141B 4297 g Hand off the timer to the next un-ACKed segment 
141B 4298 ; 
141B $972 ; 
50 06 A0 01 Al 1418 4350 60S: ADDW3 #1,LSB$W_HAR(RO) ,RO ; Get next unACKed seg number 
48 AS 50 F000 8F AB 1230 $38) BICw3 #*X<FO00S,RO,.XWBSW_TIM_ID(RS) ; Setup timed segment number 
1427 2308 SET_TIMER_RUN: : Set timer while in RUN state 
OE AS 01 AB 1427 4304 BISW #XWBSM_STS_TID,XWBSW_STS(R5) ; Claim ownership of timer 
4A AS 4E AS AE 1098 4305 MNEGW XWBSW~DELAY(R5) ,XWBSW_ELAPSE(R5); Bias the ei aeeed time timer 
52 A5 B4& 1430 4306 CLRW XWBSW_PROGRESS(R5) 3; Init PROGRES 
1433 4307 
1433 4308 ; ' 
1433 4309 NETSRESET TIMER:: ; Reset logical-Link timer 
1433 4310 RESET_TIMER: ; Reset logical-Link timer 
1633 4311 ASSUME NSPSC_MAX_DELAY LT <*X7FFF> 
56 AS AS 1433 4 13 MULW3 XWBSW_DLY_FACT(RS),=- ; 
50 4E AS 1438 4314 XWBSW_DELAY(R5) ,RO : Get timer value 
9? 1D 14 4315 BVS ; If BS then overflow 
14 0 BI lege 4 18 RO, #NSPSC_MAX_DELAY : Greater than max ? 
03 1B 14 431 BLEQU : If LEQU no, its okay 
50 14 BO 1440 4318 80$:  MOVW  #NSPSC_MAX DELAY,RO ; Use max delay 
50 a5 50) «(01 A1:s«1443) «4319 90S:  — ADDW3.s- #1, RO, RWBSO_TIMER(RS) : Set timer (+1 for clock skew) 
F6 815 1448 4320 BLEQ 86$ : If LEQ (signed) then overflow 
05 144A 4321 1008: RSB ; Done 
1448 4 ¢ 
144B 4 
1448 4324 -DSABL LSB 
144B 4325 
144B 4326 .END 
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Symbol table ety 7 8:35:64 ENETACP.. SREINE TDRVNSP.MAR: 1 . (67) 
1CBSB_LPRNAM 2 14 LSB$V_LI = 0 
1CB$B_RPRNAM = ° 8 LSB$V_SPARE 2 6 8° 
ICBSW_TIM_OCON = 4 LSBSW_HAA = 8 
10$V_INTERRUPT = 000 LSBSW-HAR = 000 6 
10$V_MULTIPLE = LSBSW_HAX = 0026 
IPL$_ASTDEL = 8 LSBSW_HNR = 00000024 
IPL$-QUEUEAST = 3 LSB$W_HXS = 00000004 
IRP$B_CXBCN = 00 05 G LSBSW_LNX 2 tt 4 3 
IRP$B_QUO = 00000004 6G LSB$W_LU = 0000000 
IRP$B_RMOD = hg LTBSL_XW = Bpope be 
IRPSC_LENGTH = OS MOVCS 000058C R 0 
IRPSL_BCNT = 6088 3 cover @ 17 38 $288 R 0 
IRPSL_IOQFL = 00 MOVCS_39 53D R 0 
IRP$L_IOST1 = 00000038 MOVPRRAM 0000553 R 02 
IRP$L_IOST2 = 0000003C MSG$_CONF IRM = 00000031 
IRPSL_MEDIA = 00000038 MSGS_INTM = 00000035 
IRPSL_PI1D = S44 49 NAK Soo nOO aE R 02 
IRPS$L_SEGVBN = 0000004 NDC = 00000084 
IRPS$L_SES_BUF = 00000048 G NDCS$L_BRC = 0000000C 
IRPSL_SVAPTE = 0000002C NOCSL_BSN = 00000010 
IRP$L_UCB = 44 6d ES NDCSL_PRC = 00000014 
IRPSL_WIND = 0000001 NDCS$L_PSN = 00000018 
IRPSM_CHAINED = 00000020 NDC$W_CRC = 00000008 
IRPSM_COMPLX = 00000008 NDC$W_CSN = 0000000A 
IRPSM_FUNC = 4 4 44 NOC$W_RTO = 00000006 
IRP$Q_STATION = 0000004 NETSACK_XMT_SEGS 000006E7 RG 02 
IRP$V_ CHAINED = 00000005 NE TSALONONPAGED eeereeee =X 02 
IRPS$V_FUNC = a4 NETSALTENTRY QOOOO0EB RG 02 
IRPSW_BCNT = 00000032 NETSAT_RCVMSG 4 8 R if 
IRPS$W_BOF F = 00000030 NETSCCS_IOSTAT 0000123A RG 0 
IRPSW_FUNC = 444 C44 NETSCHK X_IDLE eeeeenee =X 02 
IRPSW_STS = 0000002A NETSCMPC_ACC weeeeeee = X 02 
L = 00000000 NETSCOMPCEX_EV aeanenee = =X 02 
LSB$B_R_CXBCNT = 00000028 NETSCREATE XwB aeeeeeee X (02 
LSB$B_R_CXBQUO = Boob OO SA NETSC_ACT_TIMER = QOO0001E 
LSB$B_ SPARE = 0000002A NETSC_DR_ABORT = 00000009 
LSB$B_STS = 00000028 NETSC_DR_ACCESS = 00000022 
LSBSB_X_A = 00000008 NETSC_DR_CONF = Bon oe Se 
LSBSB_X_CXBACT = 0000000D NETSC_DR_EXIT = 00000026 
LSB$B_X_CXBCNT = sie'a'g t NETSC_DR_FMT = 00000005 
LSB$B_ xX" CXBQUO = 0000000E NETSC_DR_INVALID aeneeeee XK 02 
LSB$B_X_PKTWND = 0000000C NETSC_DR_NOLINK = 00000029 
LSBS$B_X_REQ = Q000000A NETSC_DR_NOPATH = 00000027 
LSBSL_CROSS = 999 bee NETSC_DR_PROTCL s $0008 7 
LSBSL-R_CXB = 000 NETSC_OR_RSU s 1 
LSBSL_R_IRP = On6 0 if NETSC_DR_SEGSIZ = 000000 ; 
LSBSL_X~CxXB = 00 1 NETS$C_DR- ZERO = 0000001 
LSBSL_X_IRP = 00 14 NETSC_EFR_ASYN z $ $ O0¢ 
$L_X" PND = 1 NETSC_EFN_WAIT = 0 
$"_B0" = 2 NETSC_IPL = 0000 $ 

LSBSM_EOM = 4 NE TSC_MAXACCFL PY 

SBSM_LI z 4 NE TSC_MAXL INNAM = F 
LSB$S_LSB s 0 NE TSC_MAXLNK = FF 
LSBS$S_ SPARE = 4 NE T$C_MAXNODNAM s 6 
LSB$S_STS = 1 NE TSC_MAXOBJNAM z C 
LSB$V~B0M = 5 NE TSC"MAX_AREAS = $ 003F 
LSBSV_EOM = 00000006 NETSC_MAX_LINES = 0040 
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NETDRVNSP ee, ee See ene "Br SEp= 1984 02:20:04 ENETACE. SREINETDRVNGP. MAR; 1 
ym a 
NEW_DATA_FLOW ? & 
NETSC_MAX_NCB : 6E - 6C R 
NET $C~MAX_NODES = Fr Eu ERCVI FAS R 
NETSC_MAX_OBJ ~ 14 NOT NEXT 9BA R 
NETSC_“MAX WOE > 0 BUF 9C1 R 8 
NETSC-MINBUF S12 . 9 O-RSRC 305 R 
NETSCITID_ACT ; ; NSP$$$_QUAL_AC ° 9 
NETSC_TID_RUS = 0000000 NSPS$$$~QUALALTFLW . 8 
NETSC_TID_XRT NSP$$$ "QUAL DAT = 0 
NETSC_TRCTL_CEL nd NSP$$$ QUAL FL = 8 4 
NETSC"UTLBUPSIT = 00001000 NSPS$S-QUAL~INF = 0000000 
NETSC UTLBUFSIZ ” gaaseass x 0 NSP$$$_QUAL_MSG = 8 B88 
NETSOEALLOCATE OO000E6B RG OO NSP$$$-QUAL SRV = 0 
ETSORAIN_R_IRPCXB 4S : 9 NEPSB ADJ X 00000000 RG 02 
oe yeh tae eeeeeee ee NSP$B-MAX-RBF 0000002 RG 02 
EH 000111 RG =O NSP$B_MAX-XPW 0000001 RG 02 
NETSEDT-OAY Boo0dI1E REO NSPSB-R_CRBTHR 9000003 RG 02 
WETSEOT KAT sosethe Haye NSPSC-ADJ_XPW = 00000020 
NETSFORR eveeeene : & NSPSC_EXT_LN = QOO0001E 
NETSGL_OFF_DPTELG tereeeee X09 NSPSC-FLW-DATA = 00000006 
NETSGL_WORRBITS 1263 RG 0 NSPSC"FLWTINT = 00000001 
Swat po000cs6 RE NSPSC~FLW-NOP = 00000000 
NETSKAST eases ts. x 0 NSPSC_FLW_XOFF = 00000001 
NETSMAP_R_REASON 3B4 RG OO NSPSC_FLW_XON = 90000002 
NETSMARK CINK pease he ae NSP$C_HSZ-ACK = 0000000 
NETSMOV_CSTR secens *« xX 02 NSP$C_HSZ_CA = 00000003 
NETSMOV U = 000003FF NSP$C_HSZ_CC = 00000064 
NETSM_MAXLNKMSK = 4 ad . 02 NSP$C7HS77CD = 000000F0 
NETSPTG_ACK Seeeees xX 02 NSPSC_HSZ_CI = 000000F 0 
NETSPRE ,EMPT eeereeee XX 0 NSPS$C_HSZ_DATA = 00000009 
Ds Oci2 RG. 08 NSPSC~HSZ~DC = 00000016 
NETSQAST Seesteek ake ae NSPSC_HSZ_DI = 00000016 
a he En 00B82 RG NSPSC~HS2~INT = 00000009 
a Ah TM Soooress RG 08 NSPSC“HSZ~L = 00000009 
WE TSRESET TIMER pearance 8s NSPSC~INF V3) os 4H 
NETSSCH MSG paseo SE NSPSCTINE=V3S = 90000002 
TeseNe C5 pan 90000028 RG’ 03 NSPSCWINF ~V40 = 0000000 
WE TS96 TUE RON Bo001s60 RE NSPSC“MAXADR = 90000009 
0000 to Re OO NSPS$C_MAX_DELAY = 00000014 
Lb and a Oa 9000766 Re NSPSC"MAX-RB = 00000007 
NETSXMT _DONE Seececes x NSPSC_MAX_-R_CXB = 00000007 
NETSXWB_LOCLNK oceeeees x NSPSC_MAX_XPW = 00000028 
NETEVTS_CA eeeeee 8X NSPSC_MSG_CA - 88 4 
NETEVTS_CC secoetes x 8 NSPSC_MSG_CC . 8 
we TEVTS. terre 2X 0 NSPSC_MSG_CI = 0000001 
NETEVTS_DATA seavecee x NSPSC_MSG_CR = 000 bb8 
NETEVT$_DC peaeeses x NSPSC_MSG_DATA = 0000000 
NETEVTS_D1 oeeesees x NSPS$C"MSG_DC “ 8 S 4 
NETEVTS_OSCLNK eeceese NSPSC MSG DI = 3 
NETEVTS_DTACK saceeess NSPS$C"MSG_DTACK = 90000004 
NETEVTS_I eeaeeek NSPSC-MSG_INT = 90000030 
NETEVTS_LIACK eeeceeee ft NSPS$C_MSG_LIACK = 00000014 
NETEVTS-LS eens e NSPSC"MSG"LS = 49 
mietib aee ee sta = HSE 
- eeeceree = § X N a kV . 
eS viee eenereee YX NSPSC_SRV_NFC = 0000 
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Syabel te itreorenannatloar yee thon emacs MOS ee Tobe Boi3b:8 EME TACS. cae sne yon vOee. MAR: 1 (89) 
Symbol table 
. NSPS$V_DATA_EOM : 
Nepec-sny-eee = i NSP$V_DATA_NAR = § 
NSPSACACK NAR z 0 NSPSV_DATA_OVFW = 7 
“ACK = FFF NSPSV-DATA © Q 

NePSRTACR = NSPS$V_FLW_CHAN z 0 

NSPSACDATR BOM 8 NSPS$V"FLW_DRV = 6 4 

oe LN . f SPSV-FLWTINT = 90000005 
NSPSACDATACN = : SP$V~FLW-INUSE = $ 004 
NSPSACDATATOVE = 000 NSP$V"FLW_LISUB = 4444 
See : BSS3e Let ae : BSS 
NSPSATELWTINY : y NSPEV-FLW_SPg = 90000006 

~FLW_INUSE = $600 NSPS$V_FLW_SP = 

NSPSATEL 0000004 NSPS$V"FLW-XOFF = 00000000 
NSPSATELUTRODE. * 0000003 NSP$V_FLW_XON = 4s 
NSPSM“FLUTS = 0900 00 NSPSVINF~ = 90000000 

ire ia : BSSSa ieee tet : HESS 

NSPSATE LUT ROFF  O9n00003 NSPEV"ASG_SP1 = 90000000 

Hee ty = 09009008 NSPSV~SRV-01 = 00000000 
NSPSM_INF_VER = 0000000 uses =3hV01 g Rone Oe 

oN = 0090010 NSPSVTSRV FLU = 00000002 
a are = bo08L000 NSPSV-SRV-SPI = 00000004 
NSPSMSEQ~ = 0000400 NSPSV~ = 90000004 
iret : Be ee : BSS 
NSPSATSRV FLU : 0900000¢ OVE. 900009K6 R02 
NSPSM"SRV-REQ = 900000F P| = 90000000 
NSPSM~SRV7SP1 = 90000070 2p, = 90000004 
See ict a tsi 02 PROT. ACK 0000063F R02 
mot tg tH 0000C PROC“DTACK 00000688 R 02 
NSPESTACK ope : 0 PROC“LIACK 0000683 R 2 
NSPSSTDATA’ cP . 8S PRS. CHR 00000453 R—s«O 
Meese Pr tha = 3 QRLSSETUP_CHAN eeenenee X09 
6 BUR . be Ick. SOL” QOOOOEAE ROD 
Meese ttu-paD ° RY EXE 10. IR Do0D0ABE R02 
arts tte te . 8 RCBS$B_ECL-RFLW = 0000006 
NSPSSTASG not ° 04 RCBSL-ACP~UC = 90000014 

SPSS NSERSG. : 0 RCBSL-PTR-LTB = 90000024 
a7 Be . RCBSW-MCOONT = 00000054 
Wepss- cunt : RCVMAP_B_EVT = 90000002 
Nope S-ouATmA RCVMAP"B-MSG = 0000000 
NSP SS oUAT-pATATY . RCVMAP"B7SIZ = 90000001 
NSPES-OUaE =| : RCV CORRON 0000172 R 03 
Wee se- CUAL ne > RCV~COPY 0000BED Rs«éO 
Meets aut ~eac ~ RCV~COPY1 00008D1 R 9 
NSP$S_QUAL” SRV RCV-COPY2 0 3 R 8 
NSP$S_SRV_01 = a 8 oe . 
NSPSS~SRV7FLW . RCV"DON see 
SS emarym sae : RCV"MSG O24F R 

Nee ev Ack. > REASON W_DR eeereeee x 

Hae en tee > REASON’ W MBX eeeeeeee x 
NSP$V_ACK_SP2 = REASON"U"SS patie hee X 

MEPS VATE NCH. : RESET ~~ 00001377 & 
NSPSV~DATA_BOM : RESET_TIMER 


| 
j 
| 


H 9 
NE TDRVNSP = DECnet NSP module for NETDRIVER Vg-SEP- 1984 0) : 34:32 YANCVAS Macro V04-00 Pp 
Symbol table -SEP-1984 02:20: NETACP.SRCINETDRVNSP.MAR; 1 
RTS_NLT 00325 R TR3SV_RTFLG_O12 = 
Rw FDOT $8000733 B TR SV-ATFLG=3 z 
SCASQAST eeeeeeee =X TRSSV_RTFLG_ = 
TUP_LSB 0 0059 R TRSSV_RTFLG_PH2 = g 
SET_TIMER_RUN R TR3SV_RTFLG_ROR 2 
5 ° R TR3SV_RTFLG_RTS s 4 
SHRINK _XPW TR4$$$_QUAL_ADDR = 
Siz... = 1 TR4$$$_QUAL_RTFLG = 
SS$_ABORT = C TR4$$$- QUAL SCLASS = 
SS$_ACCVIO = C TR4$C_BCE_MID1 = 04 48 
SS$_BUF FEROVF = 1 TROSC BCE AIDE = 0 
SS$_DATAOVERUN = 3 8 TR4$C_BCR_MID = >, 
SS$_F ILNOTACC = AC TR4$C_BCR_MID2 = 0 
SS$_LINKABORT = 4 cr TR4$C_BCTSMULT = + Ong 
SS$_ xX = 00000274 TR4$C_END_NODE = 0000000 
SS$_NORMAL = 4 01 TR4$C_HIORD = O08 OAA 
SS$" TOOMUCHDATA = 0000029C TR4$C_HSZ_DATA = 44 FE 
TIMED SEG_ACKED ad CO R 02 TR4$C_MSG_BCEHEL = 8 00D 
TIMEOOT 000 ASE R TR4$C_MSG_BCRHEL = 00000008 
TQESB_RQTYPE = 00000008 TR4$SC_MSG_LDATA = 0000000 
TQESM- REPEAT = 00000004 TR4$C_MSG_RDATA £ 900000 
TRSC_MAXHDR = see gt TR4$C_PRO_TYPE = 0000036 
TRSC_NI_ALLEND1 = 040000AB TR4SC_RTR_LVLI = BORO ne 
TRSC_NI_ALLEND2 = 44 444 TR4SC_RTIR_LVL2 = 00000001 
TRSC_NI_ALLROU1 = 030000AB TR4SC_T3MOLT = 00000002 
TRSC_NI_ALLROU2 = 00000000 TR4SC_VER_HIB = 00000000 
TRSC_NI_PREF IX = 000800 TR4$C_VER_LOWW = ey: 
TRSC_NI-P = 00000360 TR4$M_ADDR_AREA = Peer Ge 
TRSC_PRT_ = 0000001F TR4SM_ADDR-DEST = QOO003FF 
TRSC_PRI_RTHRU = 0000001F TR4SM_RTFLG_INI = 00000020 
TRSKTLL_COC_LPD eeeeeeee =X 08 TR4SM_RTFLG_LNG = eae 
TRSSOLICIT teeeeeee =X 0 TR4SM_RTFLG_ROR = 000 o008 
TRSTEST_REACH eeeeeeee =X 02 TR4SM_RTFLG_RTS = 00000010 
TRSTIMER eeeeeeee = X 02 TR4$R_QUAL = 00000000 
TR3$$$_QUAL_MSG = 00000000 TR4$S_ADDR_AREA = 00000006 
TR3$$$_Q RTFLG = 00000000 TR4$S_ADDR_DEST = 0000000A 
TR3SC_ASZ_DATA z TR4$S_QUAL = 0000000 
TR3SC_MSG_DATA s TR4$S_QUAL_ADDR = 0000000 
TR3$C_MSG_HELLO = TR4$S_QUAL_RTFLG = 00 S208 
TR3$C_MSG_INIT = TR4$S_QUAL SELASS = $9 01 
TR3$C_MSG_NOP2 = TR4$S_RTFLG_01 = 8 00 
TR3$C_MSG_ROUT 2 TR4SS_RTFLG VER = 389 
TR3SC_MSG_STR2 = TR4$S_SCLASS_57 = 0000000 
R3$C_MSG_VERF = TR4$S_TROMSG = 2 
TR3SM_MSG_CT s TR4$V_ADDR_AREA = A 
TR3SM_MSG_RT z TR4$V_ADOR DEST z 
TR3SM_RTFCG_PH2 = TR4SV_RTFLG_01 2 
TR3SM_RTFLG_ROR z TR4SV_RTFLG_INI = 
TRSSM_RTFLG_RTS = TR4SV_RTFLG_LNG = 
R3$R_QUAL = TR4$V_RTFLG_ROR = 
s TR4SV_RTFLG_RTS = 4 
_MSG z TR4SV_RTFLG ver = 6 
“QUAL a tt" s TR4$V_SCLASS_ = 1 
$S-RTFLG_01 s TR4$V_SCLASS_57 = 5 
TR3MSG = TR4$V~SCLASS_BC = 4 
SV"MSG_CTL s TR4$V—SCLASS_LS = ‘ 
$V"MSG_RTH = TR4$V-SCLASS_METR z 


sz | 
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Symbol table “SEP-1984 02:20: NETACP.SRC INE TDRVNSP.MAR; 1 (67) 
TR4$V_SCLASS_SUBA = 0 WBSL_LINK = f 
T.0.ce 1 XWBSL_ORGUCB = 
T_0_Cl 1 & XWBSL_PID = 4 
T_0_D1 1 R XWBSL_PTR_RTHD aeneeere =X 02 
T“O-RUN 130A R XWBSL-VCB : 30 
uCe$B_F IPL = XWBSL_WLBL = 4 
UCBSL_VCB = 4 XWBSL_WLFL = 0 
_&SG 4 R 08 XWBSM_FLG_BREAK = 1 
UPD ~PROGRESS 1389 R XWBSM-FLG-CLO 2 2 0 
BYTE = 4 XWBSM_FLG_IAVL = 1 8 
000634 R XWBSM_FLG_SCD = 00 4 
a : 196 R XWBSM_FLG_SDACK = 88 $8 
XMT—COPY D36 R XWBSM-FLG_SDFL z r 
_COPY1 Bee DOO R 0 XWBSM_FLG_SDT = 444444 
XMT~INT_CO 0 0018 8 0 XWBSM_FLG_SIACK = 00000004 
_RCV_CO 00001D2 R 0 XWBSM_FLG_SIFL = S434 
XMT_REQ_DONE 0000728 R 8 XWBSM_FLG_SLI = 0000 4 
XMT_REQ_DONE_OK 44 72F R XWBSM_FLG_TBPR = 00000800 
= 00000000 XWBSM_FLG_WBP = 00000040 
XwBSS eeeneeee =X 8 2 XWBSM_FLG_WBUF = 00000002 
XWBSB_ACCESS = 00000008 XWBSM_FLG_WDAT = 00000400 
XWBSB_ADJ_INX aeneeere =X 8602 XWBSM_FLG_WHGL = 4454 
XWB$B_DATA = 00000058 XWBSM_PRO_CCA = 000000 5 
XWBSB_F IPL = 0000001F WBSM~PRO_NAR = 0000001 
XWBSB-LOGIN = XWBSM~PRO-NFC = 00000001 
XWB$B_LPRNAM = XWBSM_PRO_PH2 = 00000004 
XWBSB_PR = XWBSM_PRO_SFC = 00000002 
XWB$B_RID = XWBSM_STS_ASTPND = 00000400 
XWBSB_RPRNAM = XWBSM_STS_ASTREQ = 00000800 
XWBSB_SP3 = XWBSM_STS_CON = 00000010 
XWBSB_STA = XWBSM_STS_DIS = 44's 
XWBSB_ TYPE = XWBSM_STS_DTNAK = 000001 
XWBSB_X_ = XWBSM_STS_LINAK z 9000200 
XWBSB—X~FLWCNT = XWBSM_STS NDC = 00001000 
xwBSC_ COML = XWBSM_STS_OVF = 00000080 
XWBSC~ CONLNG = XWBSM_STS_RBP = 00000040 
XWBSC_DATA = XWBSM_STS_SOL = 00000004 
XWBSC_LOGIN = XWBSM_STS_TID = 4 64 42 
XWBSC_LPRNAM = XWBSM_STS_TLI = 00 4 4f4 
XWBSC_NDC_LNG = XWBSM_STS_TMO = 000000 
XWBSC_NUMSTA s XWBSQ_FORR = One 014 
XWBSC_RID = XWB$Q_FREE CXB = : 118 
XWBSC_RPR = XWBSR_CON_BLK = Q000000A4 
XWBSC"STA_CAR = XWBSR-RUN~BLK = A4 
XWBSC_S7TA_CCS = XWBSS_ = 06 
XWBSC"STA_CIR = XWBSS~COMLN z 6E 
XWBSC_STA_CIS = XWBSS_CON_ BLK = 4 643 
XWBSC_STA_CLO = XWBSS_DATA = 1 
XWBSC"STA_DIR = XWBSS"DT = ; 
XWBSC"~STA_DIS = XWBSS-FLG = 
XWBSC~STA_RUN = XWBSS ~FORK = 
XWBSL_DEA_IRP = XWBSS_FREE_CXB = 
STF PC = XWBSS"LI = 
XWBSL_FR = XWBS$S_LOGIN = F 
XWBSL-FR4 = XWB$S"LPRNAM = ; 
XWBSL_ = KWBSS_NDC > ‘ 
XWBSL_IRP_ACC = XWBS$S_ PRO = 1 


NE TDORVNSP 
Symbol table 


x 
XWBST“DATA 
XWBST"DT 
WB 


XWBSW"DLY-WGHT 
KUBSU_ELAPSE 


XWBSW~PATH 
XWBSW~ PROGRESS 
XWBSW~REF CNT 
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v04-00 
ETDRVNSP.MAR; 1 


>< 
ao 
uw 
zo 


OLS SMNOOLMNE Wa Mo 
FSAODWDOMBDLEMVPO —™ 


Page 99 
9° 67) 


— 
mmm mmemnmnentnemnes eee seeneeeeeeeneneeeeeemed 


K 
= DECnet NSP module for NETORIVER 


The_ working set Limit was 1350 pages. 

214753 bytes_(420 pages) of vievust memory were used to buffer the intermediate cod 
There were 170 pages of symbol table space aljoce ed to hold 3045 non-local and 282 
4326 source Lines were read in Pass 1, produci ng object records in Pass 2. 

76 pages of virtual memory were used to define 58 macros. 


e. 
local symbols. 


dwoeweewoucosesesooscoscees$ 


Macro Library name 


-§ 55$DUA28 : CSHRLIBINMAL IBRY.MLB; 1 


0 

$299$U n3e: SHRLIBJEVCDEF .MLB; 1 9 
“$25 S$DUA NETAC CP OBJ JNETDRV-MLB; 1 

“$25 : ENETAC cP OBJ NET grt e:1 10 

“$ $23580u 0B, L1B.M 24 

SDUA ES Y8Li8 STARLET. Bile: :2 10 

ToTAcs (all libraries) 47 


3177 GETS were required to define 47 macros. 
There were no errors, warnings or information messges. 


NE TDRVNSP 16°SE 1: AX/VMS 
Psect synopsis S-SEp=1 382 62: 36 84 NETACP.S 

peso m mn somnmarcaae } 

: Psect synopsis ! 

teense ae ocenrwmer ra} 
PSECT name Allocation PSECT No. Attributes 
. . ( -) NOPIC USR CON ABS LCL NOSHR NOEXE NORD 
SABSS O900o0s7 | ef") oF 1) NOPIC USR CON ABS LCL NOSHR EXE RD 
$$$115_DRIVER 144B ( 5195 NOPIC USR CON REL LCL NOSHR- EXE 

ig Peer ecm og NY reaming 
H ! Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization :00:00.11 0:00:01.03 
gounens processing 149 0:00:01. 13 0:00:05 -6 
1261 0:00: 8-73 00: 4'40°9 
Syabol table sort 0:00:0 a3 bs 9. 
1301 83: 0:11.5 00:00:26.39 

os, table output 0: Ht Set 00:00:01.11 
Psect synopsis output 00:00:00.0 Be +8 +20 «08 
Cross-reference output ? BR? 20-8 0:00:00.0 
Assembler run totals 274 0:00:56.8 00:01:58.57 
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REIN ETDRVNSP.MAR; 1 


NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
RD WRT NOVEC LONG 


MACRO/LIS=L1IS$:NETDRVNSP/OBJ=0BJ$:NETDRVNSP MSRC$:NETDRVNSP/UPDATE=(ENHS:NETDRVNSP) +EXECMLS/L1IB+¢. 1B$:NET/LIB+LIB$:NETORV/LIB*SHRL IBS 
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